Hey,
habe vor einiger Zeit folgenden Code geschrieben.
Nicht schön und sicher nicht effektiv, aber da es funktionierte und da es nur ein kleiner Teil des Scripts ist, habe ich nichts mehr daran rumgebastelt.
Nun ist aber das Problem aufgetreten, dass in vielen Zeilen einer der Daten ( z.B. Gewicht) nicht eingegeben wurde.
Die zusätzliche Anforderung an den Code ist jetzt, diese Zeilen einfach zu Überspringen und mit der nächsten Weiterzumachen.
Wie ist dies am einfachsten und Ressourcen schonendsten du bewerkstelligen? (Gerade der letzte Punkt würde mich interessieren und hier habe ich einfach zu wenig Erfahrung damit...)
habe vor einiger Zeit folgenden Code geschrieben.
Quellcode
- Do While Not IsEmpty(Sheets("Uebersicht").Cells(i, 1))
- If Sheets("Uebersicht").Cells(i, 2) = name Then
- Sheets("Uebersicht").Cells(i, 20).Copy Destination:=Worksheets("Auswertung" & name).Cells(n, 1) 'Gewicht
- Sheets("Uebersicht").Cells(i, 66).Copy Destination:=Worksheets("Auswertung" & name).Cells(n, 2) Tag
- Sheets("Uebersicht").Cells(i, 64).Copy Destination:=Worksheets("Auswertung" & name).Cells(n, 3) Monat
- Sheets("Uebersicht").Cells(i, 67).Copy Destination:=Worksheets("Auswertung" & name).Cells(n, 4) 'Jahr
- Sheets("Uebersicht").Cells(i, 63).Copy Destination:=Worksheets("Auswertung" & name).Cells(n, 5) 'Alter
- n = n + 1
- End If
- i = i + 1
- Loop
Nicht schön und sicher nicht effektiv, aber da es funktionierte und da es nur ein kleiner Teil des Scripts ist, habe ich nichts mehr daran rumgebastelt.
Nun ist aber das Problem aufgetreten, dass in vielen Zeilen einer der Daten ( z.B. Gewicht) nicht eingegeben wurde.
Die zusätzliche Anforderung an den Code ist jetzt, diese Zeilen einfach zu Überspringen und mit der nächsten Weiterzumachen.
Wie ist dies am einfachsten und Ressourcen schonendsten du bewerkstelligen? (Gerade der letzte Punkt würde mich interessieren und hier habe ich einfach zu wenig Erfahrung damit...)