Suche + Übertrag von Zahlen. Abruch bei Buchstaben

Hallo zusammen,

habe folgendes Problem, ich möchte meine Excel-Tabelle auf dem 1Arbeitsblatt in der Spalte E nach 5stelligen Zahlen die mit 55 beginnen abfragen.
Diesen gefundenen Wert soll er dann in die spalte H (in jede Zeile kopieren) bis die nächste 5stellige Zahl gefunden wird dann soll er diese unter die davor eingefügten Werte packen usw. bis er keine 5stelligen Werte mehr findet (die mit 55 beginnen).

Ich habe untenstehendes Makro aber irgendwie funktioniert es nicht so richtig, da in der Spalte auch Buchstaben vorkommen wenn er also Buchstabe findet, bricht er mit der Suche und den Einträgen ab.

Wie kann ich dies vermeiden, ich komme absolut nicht mehr weiter.

For i = 1 To Range("E65536").End(xlUp).Row
If Cells(i, 5) >= 55000 And Cells(i, 5) <= 55999 Then
Cells(i, 8) = Cells(i, 5)
Else
If i <> 1 Then Cells(i, 8) = Cells(i - 1, 8)
End If
Next i

Gruß
Christine

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Christine() Dim I As Long For I = 1 To Range("E65536").End(xlUp).Row If IsNumeric(Cells(I, 5)) Then If Cells(I, 5) >= 55000 And Cells(I, 5) <= 55999 Then Cells(I, 8) = Cells(I, 5) Else If I <> 1 Then Cells(I, 8) = Cells(I - 1, 8) End If End If Next I End Sub

Hallo Christine

Du möchtest es unbedingt mit VBA machen.

Für Spalte E


Option Explicit

	

Sub Christine()

	Dim LoI As Long

	Dim LoLetzte As Long

	Dim LoWert As Long

	If [E65536] = "" Then

		LoLetzte = [E65536].End(xlUp).Row

	Else

		LoLetzte = 65536

	End If

	For LoI = 1 To LoLetzte

		If IsNumeric(Cells(LoI, 5)) Then

			If Cells(LoI, 5) >= 55000 And Cells(LoI, 5) <= 55999 Then

				LoWert = Cells(LoI, 5)

				Cells(LoI, 8) = LoWert

			Else

				Cells(LoI, 8) = LoWert

			End If

		Else

			Cells(LoI, 8) = LoWert

		End If

	Next LoI

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Suche + Übertrag von Zahlen. Abruch bei Buchstaben

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread