Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle nach Zahlen durchsuchen u. kopieren

Zelle nach Zahlen durchsuchen u. kopieren
08.11.2004 11:53:38
Wolfi
Hallo Zusammen,
hab ein kleines Problem, vielleicht kann mir von Euch jemand weiter helfen:
In Spalte A stehe untereinander Zahlen und Buchstaben z.B.
00010 Name1
01 Name2
0020 Name3
004 Namexx
usw.
Ich benötige nun in spalte B immer nur die Zahlen also:
00010
01
0020
004
leider brauch ich das ganze als VBA Code aber ich weiss nicht wie ich das machen soll, da die Anzahl der Zahlen unterschiedlich sein kann
Gruß und Danke Wolfi

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle nach Zahlen durchsuchen u. kopieren
08.11.2004 12:09:32
Josef Ehrensberger
Hallo Wolfi!
Nach deiner Beschreibung, brauchst du die Nummern als Text!

Sub trennen()
Dim lRow As Long
Dim lCnt As Long
lRow = Range("A65536").End(xlUp).Row
For lCnt = 1 To lRow
Cells(lCnt, 2).NumberFormat = "@"
Cells(lCnt, 2) = CStr(Left(Cells(lCnt, 1), InStr(1, Cells(lCnt, 1), " ") - 1))
Next
End Sub

Gruß Sepp
AW: Zelle nach Zahlen durchsuchen u. kopieren
08.11.2004 12:51:35
Wolfi
Hi Sepp,
Danke für die Antwort, im Prinzip ist das genau was ich brauch leider gibt es einen Fehler in dieser Zeile:
Cells(lCnt, 2) = CStr(Left(Cells(lCnt, 1), InStr(1, Cells(lCnt, 1), " ") - 1))
(Ungültiger Prozeduraufruf)
Gruß Wolfi
Anzeige
AW: Zelle nach Zahlen durchsuchen u. kopieren
08.11.2004 13:26:55
Josef Ehrensberger
Hallo Wolfi!
Dann stehen da auch andere Werte!
Probiers so.

Sub trennen()
Dim lRow As Long
Dim lCnt As Long
lRow = Range("A65536").End(xlUp).Row
For lCnt = 1 To lRow
If InStr(1, Cells(lCnt, 1), " ") > 0 Then
Cells(lCnt, 2).NumberFormat = "@"
Cells(lCnt, 2) = CStr(Left(Cells(lCnt, 1), InStr(1, Cells(lCnt, 1), " ") - 1))
End If
Next
End Sub

Gruß Sepp
AW: Zelle nach Zahlen durchsuchen u. kopieren
08.11.2004 16:11:54
Wolfi
Hallo Sepp,
das ist es vielen Dank, hab es noch ein wenig verändert aber jetzt klappts.
Gruß und fettes Merci
Wolfi

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige