Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erste kompl. leere Spalte löschen, neu beschriften

Erste kompl. leere Spalte löschen, neu beschriften
09.12.2015 07:46:05
karin
Guten Tag,
Ich kann auf den gleichen Beitrag von letzter Woche nicht mehr antworten. DIe Datei, welche mir gegeben wurde, kann ich nicht öffnen.
Deshalb nochmal:
Ich hätte gerne ein Makro, dass die Spalten (ab Zeile 3) auf Inhalt überprüft.
Die Prüfung soll ab Spalte 20 erfolgen, denn vorher sind definitiv alle befüllt. Findet er die erste Spalte ,die komplett ohne Inhalt ist, soll diese Spalte , und alle nachfolgenden komplett gelöscht
werden.
Beispiel: Spalte 25 ist komplett ohne inhalt, Spalte 25 und alle nachfolgenden werden gelöscht.
Jetzt soll in die ersten dreileeren Spalten (in meinem Beispiel ab Spalte 25) neue Überschriften (in die zweite Zeile) eingefügt werden, zB "eins","zwei" und "drei".
Kann mir jemand helfen?
VIelen Dank im Voraus
Kerstin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
leere Spalte löschen, neu beschriften
09.12.2015 10:49:34
Rudi
Hallo,
Karin oder Kerstin? 
Sub karin()
Dim c As Long
For c = 20 To Columns.Count
If WorksheetFunction.CountA(Range(Cells(3, c), Cells(Rows.Count, c))) = 0 Then
Range(Cells(1, c), Cells(1, Columns.Count)).EntireColumn.Delete
Cells(2, c + 0) = "eins"
Cells(2, c + 1) = "zwei"
Cells(2, c + 2) = "drei"
Exit Sub
End If
Next c
End Sub

Gruß
Rudi

AW: leere Spalte löschen, neu beschriften
09.12.2015 13:33:25
Kerstin
Guten Tag,
danke für den Code!
Leider lässt das Makro die letzen zwei Spalten - auch wenn sie leer sind, stehen und schreibt erst danach die Überschriften.
zb: erste leere Spalte: SPalte 25; 25 + 26 werden nicht gelöscht, in Spalte 27 steht "eins"
Habe auch den Inhalt von den Spalten komplett entfernt, um sicherzugehen, dass keine Formel enthalten ist, leider erfolglos.
MFG

Anzeige
AW: leere Spalte löschen, neu beschriften
09.12.2015 14:12:31
Rudi
Hallo,
kann nicht sein.
Dann ist Y3:Y1048576 nicht vollständig leer sondern erst AA3:AA1048576.
Gruß
Rudi

AW: leere Spalte löschen, neu beschriften
09.12.2015 14:11:13
Kerstin
Habe eben herausgefunden, woran es liegt dass er sie nicht löscht. Und zwar ist die Liste gefiltert, und die ausgeblendeten Spalten enthalten da wohl noch Werte.
Kann man das berücksichtigen, dass das Makro quasi nur in der "sichtbaren" Spalte schaut?
Vielen Dank im Voraus!

AW: leere Spalte löschen, neu beschriften
09.12.2015 14:18:57
Rudi
Hallo,
If WorksheetFunction.CountA(Range(Cells(3, c), Cells(Rows.Count, c)).SpecialCells(xlCellTypeVisible)) = 0 Then
Wenn aber Formeln, die "" zurückgeben drin stehen, wird die Spalte nicht gelöscht.
Gruß
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige