Ich blende regelmäßig Spalten in meinen Arbeitsblättern ein und aus. Wenn ich eine ganze Reihe von Spalten ausgeblendet habe, fällt es mir schwer, eine einzelne Spalte aus all diesen ausgeblendeten auszublenden. Wenn ich beispielsweise die Spalten C: M ausblende und die Spalte F einblenden möchte, muss ich den gesamten Bereich einblenden und dann C: E und G: M wieder ausblenden. (Es gibt andere Möglichkeiten, wie ich dieselbe Aufgabe erfüllen könnte, aber keine davon ist besonders reizvoll.)

Ich finde jedoch, dass eine einzelne Spalte mit einem Makro sehr einfach ausgeblendet werden kann. Beachten Sie Folgendes:

Sub UnhideSingleColumn()

Dim Col As String     Dim rng As Range

StartHere:

Col = InputBox("Enter column to unhide.", "Unhide Column")

If Col = "" Then Exit Sub     On Error Resume Next     ' if not a valid range, an error occurs     Set rng = ActiveSheet.Columns(Col)

If Err.Number <> 0 Then         On Error GoTo 0         Err.Clear         MsgBox "Invalid input! Please input a valid column."

GoTo StartHere     End If

rng.EntireColumn.Hidden = False

MsgBox "Column " & UCase(Col) & " is now visible.", _       vbOKOnly, "Unhide Specified Column"

Set rng = Nothing     On Error GoTo 0 End Sub

Das Makro fordert den Benutzer auf, für welche Spalte sichtbar gemacht werden soll, und versucht dann, diese Spalte auszuwählen. Wenn die Spalte nicht ausgewählt werden kann, wird ein Fehler generiert und der Benutzer wird erneut zur Eingabe aufgefordert. Wenn die Spalte ausgewählt werden kann, wird ihre .Hidden-Eigenschaft deaktiviert, wodurch die Spalte sichtbar wird.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2405) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Einblenden einer einzelnen Spalte.