Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Excel gut - VBA nein
UweD
06.05.2025 11:13:15
AW: Versteckte Spalten sichtbar machen
HAllo
schau dir das nochmal genauer an:
Das sind 3 Zellen
CQ18 die Zelle, wo du die Filiale per Dropdown auswählst
CT6 die Zelle wo du die Art auswählst
Auf diese 2 Zellen reagiert das Makro
CS6 wird nur gelesen, da ist die Formel mit der Anzahl drin
In deiner Änderung sind es nur noch 2 Zellen
Meiner Ansicht nach ist $CZ$6" falsch, das muss die Zelle sein, wo du die Art auswählst
LG UweD
schau dir das nochmal genauer an:
Das sind 3 Zellen
If Target.Address = "$CQ$18" Or Target.Address = "$CT$6" Then
iH = Range("CS6")
SArt = Range("CT6")CQ18 die Zelle, wo du die Filiale per Dropdown auswählst
CT6 die Zelle wo du die Art auswählst
Auf diese 2 Zellen reagiert das Makro
CS6 wird nur gelesen, da ist die Formel mit der Anzahl drin
In deiner Änderung sind es nur noch 2 Zellen
If Target.Address = "$CZ$6" Or Target.Address = "$DA$6" Then
iH = Range("CZ6")
SArt = Range("DA6")
Meiner Ansicht nach ist $CZ$6" falsch, das muss die Zelle sein, wo du die Art auswählst
LG UweD
Als Antwort auf diesen Beitrag
Max
06.05.2025 10:36:55
AW: Versteckte Spalten sichtbar machen
Lieber Uwe, Du hast einen Orden verdient. DANKE!
Beim Einbinden in die Originaldatei habe ich komischerweise ein kleines Problem.
Habe deinen Code mit den korrekten Zellen versehen
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iH As Integer, SArt As String
If Target.Address = "$CZ$6" Or Target.Address = "$DA$6" Then
iH = Range("CZ6")
SArt = Range("DA6")
'Reset
Columns("BP:CS").EntireColumn.Hidden = True
If SArt = "Einzelauftrag" Then iH = 1
Columns("BP").Resize(, iH).Hidden = False
End If
End Sub
Und in Zelle CZ6 diese Formel eingefügt:
=ZÄHLENWENN('Customer Master'!M:M;Rewe!CX18)
Zählenwenn funktioniert aber die Spalten blenden sich nicht automatisch aus oder ein
Es funktioniert wenn ich Zelle CZ6 klicken und mit Enter bestätige, aber anders nicht
Beim Einbinden in die Originaldatei habe ich komischerweise ein kleines Problem.
Habe deinen Code mit den korrekten Zellen versehen
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iH As Integer, SArt As String
If Target.Address = "$CZ$6" Or Target.Address = "$DA$6" Then
iH = Range("CZ6")
SArt = Range("DA6")
'Reset
Columns("BP:CS").EntireColumn.Hidden = True
If SArt = "Einzelauftrag" Then iH = 1
Columns("BP").Resize(, iH).Hidden = False
End If
End Sub
Und in Zelle CZ6 diese Formel eingefügt:
=ZÄHLENWENN('Customer Master'!M:M;Rewe!CX18)
Zählenwenn funktioniert aber die Spalten blenden sich nicht automatisch aus oder ein
Es funktioniert wenn ich Zelle CZ6 klicken und mit Enter bestätige, aber anders nicht
Folgenachrichten
- AW: Versteckte Spalten sichtbar machen - von Max am 06.05.2025 12:41:51
Antwort auf Beitrag erstellen