ich habe folgendes problem mit meinem loop der sollte nummern auslesen und nach weiteren nummern suchen und auch diese ausgeben jetzt ist bloß das problem, dass wenn nur eine nummer da ist nimmt er diese doppelt und bei mehreren übernimmt er auch nur die ersten zwei... wo ist der fehler, bitte helft mir
gruß frank
der loop:
Read_Page1 Karte, String, "A1"
' Nach N# suchen
Cells.Find(What:="Number", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
N# = Right(ActiveCell.Value, 13)
N# = Left(N#, 4) & "-" & Mid(N#, 5, 2) & "-" & Mid(N#, 7, 3) & "-" & Mid(N#, 10, 4)
' N# in Datei schreiben
Print #1, N#
'Nach weiteren N# per Loop suchen
Do While 1 = 1
Cells.Find(What:="Number", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
N# = Right(ActiveCell.Value, 13)
N# = Left(N#, 4) & "-" & Mid(N#, 5, 2) & "-" & Mid(N#, 7, 3) & "-" & Mid(N#, 10, 4)
Print #1, N#
Exit Do
Loop