Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in bereich nach prüfung leere spalten löschen

Forumthread: 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.
Anzeige

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
Anzeige
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
Anzeige
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.

Forumthreads zu verwandten Themen

NAch Jahrgängen sortieren
Baywatch

HI Ecxelexperten,
habe eine kleine Frage, ich habe bis jetzt ein Proramm gehabt, indem Teilnehmer nach ihrem ALter sortert wurden, jetzt muß ich das aber umschreiben, da unser VErein nun nach Jahrgängen sortieren möchte, weiß jemand wie cih die existierende Formel umschreiben muß?
=WENN...
11.11.2008 12:53:00
Thread-ID: 1023520
3 Beiträge
Pivot, unterschiedliche Spalten mehrere Tabellen
Peer

Liebe Excelfreunde,
ich habe folgendes Problem:
Ich habe mehrerer Tabellen in verschiedenen Reitern, die sich bis auf eine Kennzahl in der Spalte unterscheiden. Nun möchte ich die Ergebnisse in einer Tabelle konsolidieren. Hinzu kommt, das der Schlüssel nicht unbedingt in allen drei Ta...
07.05.2009 14:37:36
Thread-ID: 1073626
3 Beiträge
Daten nach Kriterien in Spalten umsortieren
hans

Hallo zusammen.
habe mir bereits einige Stunden den Kopf zerbrochen, ohne jedoch weitergekommen zu sein. Mein Problem ist folgendes:
Ich habe eine Tabelle (kleiner Auszug siehe unten), die Daten enthält, die jeweils entweder mit den Buchstaben A, B oder C enden. Ich möchte nun diese Dat...
14.06.2009 02:13:12
Thread-ID: 1081347
6 Beiträge
Tabellen nach Inhalt von Zelle A2 sortieren
Zelle

Liebes Forum
Ich möchte gerne eine grosse Anzahl Tabellen nach der Zelle "A2" sortieren. Auf http://www.schmittis-page.de/index.html?/excel/vba/t56.htm habe ich einen Code gefunden, der die Sortierung anhand der Tabellennamen vornimmt. Ich habe nun .name mit .Cells("A2").Value ersetzt.
...
22.08.2009 16:14:58
Thread-ID: 1097948
11 Beiträge
alphanummerisch mehrere Spalten sortieren
Ludmila

Haoo Spezialisten,
ich möchte nacholgende Werte aufsteigend sortieren lassen
SPA SPB usw.
12 Text bis Spalte 12
13 Text bis Spalte 12
14 Text bis Spalte 12
Die Spalte "A:A" ist als Text formatiert
Egal was ich probieren es kommen immer ver...
26.12.2009 11:32:46
Thread-ID: 1125934
10 Beiträge
Pivottabelle bei mehreren Spalten
RolandE

Hallo,
ich möchte eine Pivottabelle aus 3 Spalten erstellen. Zahl1 und Zahl2 sollen je nach ID zusammengezählt werden.
Leider schreibt Excel die Summen von Zahl1 und Zahl2 untereinander. Ich möchte sie jedoch nebeneinaner haben, wie auf dem Blatt "Ziel" angedeutet.
https://www.herbe...
23.01.2010 13:58:57
Thread-ID: 1132305
5 Beiträge
Zeilennummer nach Vergleich 2er Spalten
MarkusL

Hallo,
ich suche verzeifelt eine Lösung für nachfolgendes Problem.
Ich habe eine Tabelle die in der Spalte A und B nach variablen Kriterien durchsucht werden soll. Als Ergebnis, soll die gefunde Zeilennummer zurückgegeben werden. Die Komination der Suchwerte kann in der Tabelle nur einm...
03.02.2010 18:37:23
Thread-ID: 1135552
4 Beiträge
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Anzeige
Suche nach mehreren Kriterien in oder-Verknüpfung
Gorkij

Hallo,
habe folgendes Problem:
In einer Tabelle stehen in Spalte A die Organisationsteile, denen ein Mitarbeiter zugehört´, in Spalte D die aktuellen Überstundenbestände. Es gibt eine Vielzahl von Organisationsteilen. Jetzt möchte ich in Spalte E per sverweis nur für jene Mitarbeiter, d...
08.02.2010 13:07:44
Thread-ID: 1136728
5 Beiträge
Anzeige
Sortieren nach Spalten
chris

Hallo VBA experten,
ich brauche mal wieder einen Tipp.
Ich habe ab Zelle X1 bis Zelle IV1 einen Bereichs Namen vergeben.
Dieser heißt z.b Vornamen
Darunter in Zeile 2 bis z.b 500 stehen vornamen.
Jezt will ich aber nicht nach Zeile sondern nach der Spalte sortieren.
Also...
17.06.2010 08:40:19
Thread-ID: 1162370
2 Beiträge
Sortieren nach Kriterien in Zellen
Max

Hallo,
ich möchte gerne eine Vereinfachung in einen umfangreichen Excel Sheet einbauen. Der Benutzer hat zwei Zellen in welchen er die Kriterien zur Sortierung einstellen kann:
1.Zelle: Nach welchem Kriterien soll gefiltert werden (Verein, Tabellenrang, Tordifferenz, ...)?
2.Zelle:...
22.08.2010 19:34:43
Thread-ID: 1173631
4 Beiträge
Tab. nur nach letzten 2 Zeichen sortieren
Charly

Hallo,
was muss im Code eingefügt werden damit die Tabellen nur nach den letzten 2 Zeichen sortiert werden?
Sub SortSheets() Dim w%, x%, y%, z% z = ThisWorkbook.Sheets("INFO").Index + 1 w = ThisWorkbook.Sheets.Count For x = z To w For y = x To w If Worksheets(y).Name Danke vorab.
C...
25.08.2010 00:13:10
Thread-ID: 1174058
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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