wir haben aus einem Programm eine Liste in Excel kopiert die sich immer aktualisiert.
Jetzt sind zwischen Zellen immer 3 Zellen frei. Da gibts doch bestimmt eine Möglichkeit dies üer einen Makro zu machen.
Also der Makro soll quasi prüfen, wenn zwischen 2 Vollen Zellen 2 oder mehr Zellen frei sind, sollen so viele gelöscht werden, dass überall 1 leere Zelle Abstand ist.
Jetzt sind zwischen Zellen immer 3 Zellen frei. Da gibts doch
bestimmt eine Möglichkeit dies üer einen Makro zu machen.
Also der Makro soll quasi prüfen, wenn zwischen 2 Vollen
Zellen 2 oder mehr Zellen frei sind, sollen so viele gelöscht
werden, dass überall 1 leere Zelle Abstand ist.
Hi dnbma,
Sub test()
Dim Zei As Long
For Zei = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If Cells(Zei, 1).Value & Cells(Zei - 1, 1).Value = "" Then Rows(Zei).Delete
Next Zei
End Sub
wir haben aus einem Programm eine Liste in Excel kopiert die
sich immer aktualisiert.
Jetzt sind zwischen Zellen immer 3 Zellen frei. Da gibts doch
bestimmt eine Möglichkeit dies üer einen Makro zu machen.
Also der Makro soll quasi prüfen, wenn zwischen 2 Vollen
Zellen 2 oder mehr Zellen frei sind, sollen so viele gelöscht
werden, dass überall 1 leere Zelle Abstand ist.
Beispiel:
vorher
Spalte A
1 Hallo
2
3
4
5 Tschüss
6
7
8 Test
nachher:
Spalte A
1 Hallo
2
3 Tschüss
4
5 Test
6
7
8
Grüße
Hallo dnbma,
die Datei beim Download erst einmal speichern, dann beim Öffnen aus Excel heraus (dann öffnet sich ein Assistent zum Importieren der Daten). Bei den einzelnen Schritten, die Darstellung der Daten betrachten, evtl. einmal mit verschiedenen Trennungszeichen probieren (Tab oder Leerzeichen oder Semikolon oder …) und wenn dann in der Vorschau immer noch zu viele Spalten zu sehen sind, die nicht benötigten einfach nicht importieren.
Wenn du das ein paarmal probiert hast, kennst du die erforderlichen Einstellungen und kannst das ganze Prozedere mit dem Makrorecorder aufzeichnen. Mit diesem Makro kannst du dann später immer die Aktualisierungen öffnen.
Gruß
Marion
PS aus welchem Programm lädst du die Daten runter?