Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte löschen wenn leer

Forumthread: Spalte löschen wenn leer

Spalte löschen wenn leer
16.02.2007 12:44:00
lufrio1
Guten Morgen,
kann mir jemand helfen?
Ich möchte ein Makro aufzeichen, und dort 2 Prüfkriterien einbauen:
1. benutzerdefinierten Filter: wie kann ich aufschreiben:
Filter größer als Range("B5") und kleiner als Range(B6)
2. Wie schreibe ich die Bedinung auf: wenn A4:A60 = "", dann lösche die Spalte, sonst gehen eine Spalte nach rechts
Vielen Dank im voraus. Ich freue mich auf Eure Hilfe
Lufrio
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte löschen wenn leer
18.02.2007 17:19:00
fcs
Hallo lufrio,
hier zwei Beispiele wie du deine beiden Probleme lösen kannst.
Die Filter-Lösung funktioniert evtl. nicht wenn in den Zellen B5 und B6 Datumsangaben sind, dann muss man noch etwas mehr machen.
Gruss
Franz
Sub FilterSetzen()
' FilterSetzen Makro
'Falls in B5 und B6 Zahlen oder Texte stehen dann
Selection.AutoFilter Field:=1, Criteria1:=">" & Worksheets("Tab1").Range("B5"), Operator:=xlAnd, _
Criteria2:="<" & Worksheets("Tab1").Range("B6")
'Falls in B5 und B6 Datumsangaben stehen dann
Selection.AutoFilter Field:=1, Criteria1:=">" & CDbl(Worksheets("Tab1").Range("B5")), Operator:=xlAnd, _
Criteria2:="<" & CDbl(Worksheets("Tab1").Range("B6"))
End Sub
Sub A4A60_pruefen()
Dim wks As Worksheet, Bereich As Range
Set wks = ActiveSheet
Set Bereich = wks.Range("A4:A60")
'Prüfen ob im Bereich Inhalte vorhanden sind
If Application.WorksheetFunction.CountA(Bereich) = 0 Then
'oder falls in den Zellen auf Leerstrings ("") geprüft werden soll
'If Application.WorksheetFunction.CountIf(Bereich, "") = Bereich.Rows.Count Then
wks.Columns(Bereich.Column).Delete
Else
Bereich.Offset(0, 1).Select 'selektiert den Bereich B4:B60
'oder
'Bereich.Offset(0, 1).Cells(1, 1).Select ' Selektiert Zelle B4
End If
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige