Wie verstecke ich Spalten auf mehreren Blättern in einer Arbeitsmappe?
In Excel können wir Spalten in einem Arbeitsblatt schnell ausblenden. Haben Sie jemals versucht, Spalten in mehreren Arbeitsblättern gleichzeitig auszublenden? Normalerweise können Sie versuchen, alle Blätter auszuwählen und die Funktion Ausblenden anzuwenden, dies funktioniert jedoch nicht erfolgreich. In diesem Artikel werde ich darüber sprechen, wie Spalten in mehreren Arbeitsblättern schnell ausgeblendet werden können.
Blenden Sie Spalten in mehreren Arbeitsblättern in einer Arbeitsmappe mit VBA-Code aus
Blenden Sie Spalten in mehreren Arbeitsblättern in einer Arbeitsmappe mit VBA-Code aus
Der folgende Code kann Ihnen helfen, bestimmte Spalten sofort in allen Arbeitsblättern auszublenden. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Spalten auf mehreren Blättern gleichzeitig ausblenden:
Sub Hide_Columns()
'Updateby Extendoffice
Dim iWs As Integer
Dim sCol As String
On Error Resume Next
sCol = Application.InputBox("Input entire column,Eg A:A OR A:B", _
"Kutools for Excel", , , , , , 2)
If sCol = "" Then
MsgBox "Empty columns", vbInformation, "Kutools for Excel"
Exit Sub
End If
For iWs = 1 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Sheets(iWs).Columns(sCol).Hidden = True
Next iWs
On Error GoTo 0
End Sub
3. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, dass Sie die Spalten eingeben, die Sie in allen Arbeitsblättern ausblenden möchten. Siehe Screenshot:
4. Und dann klick OK Schaltfläche, Ihre angegebenen Spalten wurden in allen Arbeitsblättern gleichzeitig ausgeblendet.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!