Tipps & Tricks
28.07.2003, 12:30 Uhr
Zeilen auf Leerzellen überprüfen und diese Spalten ausblenden - Excel
Ich würde gerne in Excel verschiedene beliebige Zeilen markieren. Befinden sich innerhalb dieser markierten Zeilen leere Zellen, soll die entsprechende SPALTE ausgeblendet werden. Wenn man mir helfen könnte, wär das toll. Ich verzweifle an diesem Makro.
Ein Makro, welches genau Ihren Wünschen entspricht, ist deshalb so schwierig zu erstellen, da Sie anscheinend unterschiedliche, nicht aneinandergrenzende Zeilen markieren möchten und diese beliebig auswählbar sein sollen. Trotzdem kann Ihnen folgendes Makro vielleicht als möglicher Lösungsansatz dienen.
Anstatt dass Sie die Zeilen markieren, können Sie damit nacheinander Zeilennummern eingeben. Die angegebene Zeile wird überprüft. Wird eine Leerzelle gefunden, dann wird die entsprechende Spalte ausgeblendet.
Starten Sie das Makro und geben Sie eine zu überprüfende Zeilennummer ein
Die Spalte D wurde ausgeblendet und Sie können die nächste Zeilennummer eingeben, wenn Sie bei "Fortfahren?" auf JA klicken
--------------------------------------------
MAKRO ZUM KOPIEREN:
--------------------------------------------
Sub ZeilenUeberpruefen()
Dim x, y As Variant
Dim A As String
weiter:
x = InputBox("Zeilennummer?")
If x = "" Then Exit Sub
Rows(x).SpecialCells(xlCellTypeBlanks).Activate
y = ActiveCell.Column
Columns(y).Hidden = True
A = MsgBox("Fortfahren?", vbYesNo)
If A = vbYes Then
GoTo weiter
Else: Exit Sub
End If
End Sub
--------------------------------------------
Kommentare
Es sind keine Kommentare vorhanden.
