Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon speedy71 vom 21.12.2020, 09:58 Options
Spalten per Makro einblenden
Hallo zusammen,
ich brauch noch einmal eure Hilfe, ich habe folgendes Makro um Spalten auszublenden wenn in einer Zelle eine 1 steht nun soll ein anders Makro die Spalten wieder einblenden wenn in den Zellen eine 0 steht und das bring ich im Augenblick nicht hin.
Makro zum ausblenden:
Sub Spalte_ausb()
Dim intSpalte As Integer
ActiveSheet.Unprotect Password:="test"
Application.ScreenUpdating = False
For intSpalte = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
If Cells(100, intSpalte) = 1 Then
Columns(intSpalte).EntireColumn.Hidden = True
End If
Next
Application.DisplayAlerts = False
ActiveSheet.Protect Password:="test"
End Sub
Schon mal vielen Dank in voraus.
Grüße
Achim
ich brauch noch einmal eure Hilfe, ich habe folgendes Makro um Spalten auszublenden wenn in einer Zelle eine 1 steht nun soll ein anders Makro die Spalten wieder einblenden wenn in den Zellen eine 0 steht und das bring ich im Augenblick nicht hin.
Makro zum ausblenden:
Sub Spalte_ausb()
Dim intSpalte As Integer
ActiveSheet.Unprotect Password:="test"
Application.ScreenUpdating = False
For intSpalte = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
If Cells(100, intSpalte) = 1 Then
Columns(intSpalte).EntireColumn.Hidden = True
End If
Next
Application.DisplayAlerts = False
ActiveSheet.Protect Password:="test"
End Sub
Schon mal vielen Dank in voraus.
Grüße
Achim
Antwort 1 von Hajo_Zi vom 21.12.2020, 10:16 OptionsLösung
Hallo Achim,
mach es mit einem Makro in dem Du
If Cells(100, intSpalte) = 1 Then
Columns(intSpalte).EntireColumn.Hidden = True
End If
änderst in
Columns(intSpalte).EntireColumn.Hidden = Cells(100, intSpalte) = 1
Gruß Hajo
mach es mit einem Makro in dem Du
If Cells(100, intSpalte) = 1 Then
Columns(intSpalte).EntireColumn.Hidden = True
End If
änderst in
Columns(intSpalte).EntireColumn.Hidden = Cells(100, intSpalte) = 1
Gruß Hajo
Antwort 2 von speedy71 vom 21.12.2020, 10:57 Options
Hallo Hajo,
Danke für die schnelle Hilfe.
Grüße und einen schönen Sonntag
Achim
Danke für die schnelle Hilfe.
Grüße und einen schönen Sonntag
Achim
Antwort 3 von speedy71 vom 21.12.2020, 21:17 Options
Hallo Hajo,
ich muß leider jetzt erst feststellen das der folgende Code nicht ganz richtig läuft:
Sub spalte_einb4()
Dim intSpalte As Integer
ActiveSheet.Unprotect Password:="test"
Application.ScreenUpdating = False
For intSpalte = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
Columns(intSpalte).EntireColumn.Hidden = Cells(100, intSpalte) = 1
Next
Application.DisplayAlerts = False
ActiveSheet.Protect Password:="test"
End Sub
es werden nur die ersten 47 Spalten bearbeitet, an was kann das denn bitte noch liegen, ich finde im Code keinen fehler.
Ich würde mich freunen wenn du mir dabei noch Helfen könntest.
Grüße
Achim
ich muß leider jetzt erst feststellen das der folgende Code nicht ganz richtig läuft:
Sub spalte_einb4()
Dim intSpalte As Integer
ActiveSheet.Unprotect Password:="test"
Application.ScreenUpdating = False
For intSpalte = 1 To Cells(2, Columns.Count).End(xlToLeft).Column
Columns(intSpalte).EntireColumn.Hidden = Cells(100, intSpalte) = 1
Next
Application.DisplayAlerts = False
ActiveSheet.Protect Password:="test"
End Sub
es werden nur die ersten 47 Spalten bearbeitet, an was kann das denn bitte noch liegen, ich finde im Code keinen fehler.
Ich würde mich freunen wenn du mir dabei noch Helfen könntest.
Grüße
Achim
Antwort 4 von Hajo_Zi vom 21.12.2020, 21:21 Options
Hallo Achim,
vielleicht wird der benutzte Bereich falsch festgestellt.
Sub spalte_einb4()
Dim intSpalte As Integer
ActiveSheet.Unprotect Password:="test"
Application.ScreenUpdating = False
For intSpalte = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Columns(intSpalte).EntireColumn.Hidden = Cells(100, intSpalte) = 1
Next
Application.DisplayAlerts = False
ActiveSheet.Protect Password:="test"
End Sub
Gruß Hajo
vielleicht wird der benutzte Bereich falsch festgestellt.
Sub spalte_einb4()
Dim intSpalte As Integer
ActiveSheet.Unprotect Password:="test"
Application.ScreenUpdating = False
For intSpalte = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Columns(intSpalte).EntireColumn.Hidden = Cells(100, intSpalte) = 1
Next
Application.DisplayAlerts = False
ActiveSheet.Protect Password:="test"
End Sub
Gruß Hajo
Antwort 5 von speedy71 vom 21.12.2020, 21:30 Options
Hallo Hajo,
Danke für die schnelle Antwort, jetzt funktioniert das ganze.
Sag mal du sitzt auch den ganzen Tag vor den Rechner, oder?
Grüße und einen schönen Abend
Achim
Danke für die schnelle Antwort, jetzt funktioniert das ganze.
Sag mal du sitzt auch den ganzen Tag vor den Rechner, oder?
Grüße und einen schönen Abend
Achim
Ähnliche Themen
Zahlen in Spalten mit Makro Hochdrehen
Marcopietro 03.10.2007 - 74 Hits - 1 Antwort
Excel Makro Zellen nach Hintergrundfarbe aus-/einblenden
bestman 04.01.2008 - 93 Hits - 5 Antworten
Spalten summieren, durch Anzahl der Spalten teilen - wenn Werte ungleich Null
Petra65 29.01.2008 - 108 Hits - 2 Antworten
Spalten Einblenden in Excel
putzi 15.04.2008 - 160 Hits - 4 Antworten
2 spalten per makro kopieren
johnjohn 31.07.2008 - 4 Hits - 4 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
