Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

in bereich nach prüfung leere spalten löschen

in bereich nach prüfung leere spalten löschen
04.09.2006 09:17:30
achim
Hallo Excel Freunde
wer kann mit einem makro helfen bzw. ergänzen?
funktion: prüfe ob spalten leer wenn ja dann lösche diese.der bereich geht von F:BY.
z.B. Spalte F hat daten aber Spalte G keine, Spalte H hat daten aber I keine oder Spalte AA und AB hat keine daten aber Spalte AC usw.

Sub bereinigeLeereSpalten()
Sheets("Tabelle1").Activate
Columns("F:BY").Select
End Sub

danke achim h.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in bereich nach prüfung leere spalten löschen
04.09.2006 09:35:34
ingUR
Hallo, achim,
dieses Modul-Makro bitte nur an einer Kopie testen, da nicht geprüft:

Sub LoescheLeerspalten()
Dim FirstC As Integer, LastC As Integer, c As Integer
LastC = Range("F:F").Column
firstC = Range("BY:BY").Column
For c = LastColumn To firstColumn Step -1
If Cells(Rows.Count, c).End(xlUp).Value = "" Then Columns(c).Delete
Next
End Sub

Gruß,
Uwe
AW: korrigiert ;-)
04.09.2006 09:41:43
Harald
Hi und sorry für's Einmischen

Sub LoescheLeerspalten()
Dim FirstC As Integer, LastC As Integer, c As Integer
LastC = Range("BY:BY").Column
FirstC = Range("F:F").Column
For c = LastC To FirstC Step -1
If Cells(Rows.Count, c).End(xlUp).Value = "" Then Columns(c).Delete
Next
End Sub

Gruss Harald
Anzeige
Danke an alle tipps haben geholfen:-)
04.09.2006 09:51:14
achim
Danke an alle
nun komme ich klar.
gruß
achim h.
AW: korrigiert ;-) Danke, Harald! -owt-
04.09.2006 18:50:46
ingUR
.
AW: in bereich nach prüfung leere spalten löschen
04.09.2006 09:39:34
Rudi
Hallo,

Sub tt()
Dim i As Integer
Application.ScreenUpdating = False
For i = Range("IV1").End(xlToLeft).Column To 1 Step -1
If WorksheetFunction.CountA(Columns(i)) = 0 Then
Columns(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
Korrektur
04.09.2006 09:46:37
Rudi
Hallo,

Sub tt()
Dim i As Integer
Application.ScreenUpdating = False
For i = Range("IV1").End(xlToLeft).Column To 6 Step -1
If WorksheetFunction.CountA(Columns(i)) = 0 Then
Columns(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
Als Gott mich schuf wollte er angeben.
Anzeige
Danke an alle tipp hat geholfen
04.09.2006 09:52:59
achim
gruß
achim h.

224 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige