zu dumm nen loop hinzubekommen
01.08.2005 09:37:12
Karl-Hagen
mein problem ist folgendes ich habe ein makro vorgesetzt bekommen und das tut nicht das was es soll weil es soll daten aus einem blatt auslesen und dann in ein anderes schreiben jetzt kommt das problem auf dem blatt steht nicht nur 1 treffer sondern mehrere aber ich habe keinen loop der das abfängt kann mir jemand helfen, dafür wäre ich sehr dankbar?
mit freundlichen grüßen
karl-hagen
'datenblatt hinzufügen
Set datenblatt = Worksheets.Add
datenblatt.Name = "name"
'Neue Tabelle lesen
Read_Web_Wait_Page1 datenblatt, datenstring, "A1"
'Nach daten suchen
Cells.Find(What:="daten", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
daten = Right(ActiveCell.Value, 4)
daten = Left(daten, 4)
'daten in Datei schreiben
Print #1, daten
' Worksheet schließen
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub