Zahlen aussortieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Zahlen aussortieren

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 450
Wohnort: Fridingen an der Donau

Verfasst am: 14.10.2008, 20:00

Servus zusammen!

Folgendes Problem 1 Spalte, 1000 Zeilen verschiedene Werte in jeder Zelle, Zahlen und Text. Wie bekomme ich nun die Zahlen die im Text enthalten sind eine Spalte weiter nach rechts? es sind zwischen Zahlen und Text keine Sonderzeichen oder sonstwas vorhanden. Wie Prüfe ich mit VBA auf zahl oder Text inerhalb eines Strings?

Gruß

_________________
_____________

Gruß Manuel

< Peter >
Schlauberger

Anmeldedatum: 30.08.2008
Beiträge: 235
Wohnort: Das schönste Land in Deutschlands Gaun

Verfasst am: 14.10.2008, 20:46

Hallo,

schau mal ob dir diese benutzerdefinierte Funktion hilft:

Code:

Public Function GetNumber(rngQuell As Range) As Variant
'By sergiesam
Dim intStep As Integer, newNumber As String
Application.Volatile
If rngQuell = "" Then
GetNumber = ""
Exit Function
End If

For intStep = 1 To Len(rngQuell)
If IsNumeric(Mid(rngQuell, intStep, 1)) Then
newNumber = newNumber & Mid(rngQuell.Value, intStep, 1)
End If
Next

If newNumber <> "" Then
GetNumber = CDbl(newNumber)
Else
GetNumber = ""
End If
End Function

_________________
Gruß
Peter

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 450
Wohnort: Fridingen an der Donau

Verfasst am: 14.10.2008, 21:01

Super funktioniert echt gut.

Jetzt noch was hätte das gerne noch anderst rum also das alle Zahlen aus einem Text gelöscht werden und ich nur noch den Text dastehen hab.

Gruß

_________________
_____________

Gruß Manuel

< Peter >
Schlauberger

Anmeldedatum: 30.08.2008
Beiträge: 235
Wohnort: Das schönste Land in Deutschlands Gaun

Verfasst am: 15.10.2008, 05:55

Hallo,

auch das ist machbar:

Code:

Public Function GetString(rngQuell As Range) As Variant
'By sergiesam
Dim intStep As Integer, newString As String
Application.Volatile

For intStep = 1 To Len(rngQuell)
If Not IsNumeric(Mid(rngQuell, intStep, 1)) Then
newString = newString & Mid(rngQuell.Value, intStep, 1)
End If
Next

GetString = newString
End Function

_________________
Gruß
Peter

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Abgleich von Zahlen in verschiedenen ...	Frederic	Microsoft Excel Hilfe	2	12.11.2008, 13:44
	Daten (Zahlen) ersetzen in zwei versc...	Bratwurst	Microsoft Excel Hilfe	4	11.11.2008, 11:41
	Zahlen einen Rang zu weisen	danini	Microsoft Excel Hilfe	4	11.11.2008, 09:39
	Extrem lange Zahlen nicht durch 0er e...	manu1810	Microsoft Excel Hilfe	2	29.10.2008, 22:41
	negative zahlen	Habe Dere	Microsoft Excel Hilfe	1	09.09.2008, 13:59

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de