Feld auf Inhalt prüfen
17.03.2004 15:55:01
stephan
hab ne Tabelle mit Messwerten (waagerecht), es soll nun jede Zeile markiert und in neues Dok. kopiert werden. Soweit bin ich ja scho, aber da es immer unterschiedlich viele Zeilen sind, brauch ich ne while schleife, die so lange geht, bis eine komplett leere Zeile kommt...ein weiteres Problem ist, der Dateiname des neuen xls Dokuments. Sollte den Namen des ersten Feldes der A Spalte bekommen, weiss da echt nicht mehr weiter...
Dim intRow As Integer
intRow = 0
Do Until ... ?
intRow = intRow + 1
Rows("intRow:intRow").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveSheet.SaveAs ("F:\neueTabelle.xls")
Windows("AusgangsTabelle.xls").Activate
Loop
thx