Hallo
wenn man hier die zeilen löscht kann man sie dann auch an ende der datei wieder leer einfügen so dass die datei immer 300 zeilen hat.
oder muß man die Zeilen immer manuell eingeben.
For i = 4 To 300 If Sheets(„Tabelle1“).Range(„D“ & Trim(Str(i))) = „x“ Then Sheets(„Tabelle1“).Range(Trim(Str(i)) & „:“ & Trim(Str(i))).DeleteNext
Danke
Gruß Gecko
Hallo
wenn du nur den Inhalt der Daten löscht, hilft dir das nicht weiter???
Dann könntest du zB. einfach sagen, setze den Inhalt Range(„A1“)="" .
Wenn alles zusammen bleiben soll und du am Ende wieder Zeilen einfügen möchtest, geht das natürlich.
Am besten du gehst dazu in Excel und startest ein Makro.
Dann führst du den Befehl Zeilen einfügen 1x oder 2x aus, damit
kennst du nun den Befehl zum Zeilen einfügen.
Dann stoppst du dein Makro und bearbeitest es.
Nun kannst du dir den Befehl holen und in dein VB Programm einbauen.
Du brauchst nur noch zu wissen, in welcher Zeile und wieviele Zeilen
eingefügt werden sollen.
Ich finde es klasse, das man sich so über das Makro alles herholen kann, was man an Befehlen in Excel braucht!
Mfg Werner