Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
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
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle Spalten auf leer überprüfen und löschen

Tabelle Spalten auf leer überprüfen und löschen
06.04.2016 22:03:40
snewi133
HAllo ,
ich hole mir Daten aus einer DB und würde gerne nach dem die Daten geholt sind alle Spalten die leer sind löschen! Wie mache ich das in VBA!
Die Spalten von C:HT sollen gelöscht werden wenn diese keinen Inhalt haben!
https://www.herber.de/bbs/user/104810.xlsx
Danke

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

Betreff
Datum
Anwender
Anzeige
AW: Tabelle Spalten auf leer überprüfen und löschen
06.04.2016 22:33:39
Fennek
Hallo,
versuche diesen Code, das Löschen ist vorbereitet, aber noch nicht aktiviert. Die zu löschenden Spalten werden in das 'Direktfenster' geschrieben, alt-f11 öffnet den vba- editor, strg-g das Direktfenster.

Sub sNewi()
For i = 3 to 228
If worksheetfunction.counta(columns(i)) = 1 then
'Columns(i).delete
Debug.print i
End if
Next i
End sub
Mfg

AW: Tabelle Spalten auf leer überprüfen und löschen
06.04.2016 22:48:24
snewi133
Das klappt irgendwie nicht! Es werden zu wenige Spalten gelöscht!
HAtte es versucht mit 

Sub SpaltenLoeschen()
Dim SpalteEnd As Integer
With ThisWorkbook.Worksheets("Tabelle1")
SpalteEnd = .UsedRange.Columns.Count
For i = SpalteEnd To 3 Step -1
If .Cells(1, i).Value = "" Then
.Columns(i).Delete
End If
Next Spalte
End With
End Sub
Das klappt aber nur wenn ich vorher in Spalte 1 die Summe bilde! Und das will ich ja nicht!
Wie könnte es ohne Hilfsspalte klappen? Müsste also nicht nur Zelle 1 prüfen sondern Zelle 2 bis letzte Row mit Wert!
Gruß

Anzeige
AW: Tabelle Spalten auf leer überprüfen und löschen
06.04.2016 22:50:26
snewi133
Hab gerade gesehen das es doch geht aber nur wenn ich mehrfach den Code ausführe! Warum?

AW: Tabelle Spalten auf leer überprüfen und löschen
06.04.2016 22:59:01
snewi133
So gehts :-)

Sub SpaltenLoeschen()
Dim SpalteEnd As Integer
With ThisWorkbook.Worksheets("Tabelle1")
SpalteEnd = .UsedRange.Columns.Count
For i = SpalteEnd To 1 Step -1
'If .Cells(1, i).Value = "" Then
If WorksheetFunction.CountA(Columns(i)) = 1 Then
'.Columns(i).Delete
Debug.Print i
End If
Next Spalte
End With
End Sub
Warum auch immer :-) Danke!
Was macht eigentlich das WorksheetFunction.CountA?
Gruß

AW: Tabelle Spalten auf leer überprüfen und löschen
06.04.2016 23:05:17
Fennek
Hallo,
in deiner Beispieldatei stehen immer Überschriften, also es ist mindestens 1Zelle pro Spale belegt.
CountA zähle, wie viele Zellen nicht leer sind, also entweden Zahlen oder Texte oder Formeln enthalten.
Mfg

Anzeige
AW: Tabelle Spalten auf leer überprüfen und löschen
06.04.2016 23:39:46
snewi133
Eine Frage hätte ich da noch! Ich würde auch immer gerne die Spalte löschen wo in der Überscdhrift "SUMME" steht! Wie mache ich das noch?
Gruß

AW: Tabelle Spalten auf leer überprüfen und löschen
07.04.2016 08:56:21
Fennek
Hallo,
nachts kommen oft Verbesserungsideen:
Ändere bitte:

For i = 228 to 3 step -1
und anstelle von debug.print

Cells(1, i).interior.color = vbyellow
Das markiert im ersten Durchlauf die Spalten, die dann im zweiten Anlauf, nachdem das Kommentarzeichen entfernt wurde, alle Leerspalten löscht.
Deine letzte Frage überlasse ich anderen Helfern.
Mfg
Anzeige

311 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Anzeige
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Kurze , dumme Frage: Prüfen, ob Zelle leer
Dieter

Hi,
wie kann ich denn prüfen , ob die Zelle B230 im Tabellenblatt "Umsatz" leer ist ?
(Wichtig, es ist nicht das Aktive Tabellenblatt)
Danke Dieter
29.01.2009 13:21:56
Thread-ID: 1044976
8 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Wert aus Matrix wenn Zelle nicht leer
petra

Hallo Zusammen,
brauche dringend Hilfe. Hoffe ihr wisst eine Lösung, also folgendes Problem:
Ich möchte aus einer zweidimensionalen Matrix einen Wert anhand von 2 Suchkriterien herausfiltern.
....A B C D E
1. a b c d e
2..x ö.1....5
3..y ä....4
4..z ü.3
Wenn...
15.04.2009 13:39:28
Thread-ID: 1068877
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
9
2
1
4
7
2
7
1
23
12
1
23
6
9
2
4
6
10
1
2
6
9
4