mit Drehfeld Zeilen ein und ausblenden per vba
Ulf
die ersten Schritte mit vba/makro sind schwer und 2 Tage suchen hat leider nichts passendes ergeben
vielleicht ist mein Grundansatz auch falsch
folgendes Problem
ich habe ein Drehfeld (Formular) erstellt dessen Zellbezug h1 ist.
Wenn der Wert sich auf 1 erhöht sollen bestimmte Zeilen (z.Bsp 19, 20, 23 und 24) ausgeblendet werden.
Erhöht sich der Wert auf 2 sollen diese Zellen immer noch ausgeblendet bleiben.
Ab dem Wert 3 sollen die Zeilen 23 und 24 sichtbar werden.
Ist der Wert 4 sollen alle Zeilen eingeblendet werden.
ich habe folgenden Ansatz:
Sub Drehfeld2_BeiÄnderung()
If Range("h1").Value = 1 Then
Sheets("Gain&Offset Berechnung 2").Visible = False
Sheets("Combiner Test").Visible = False
Sheets("Leistung Combiner").Visible = False
Rows(19).Hidden = True
Rows(20).Hidden = True
Rows(23).Hidden = True
Rows(24).Hidden = True
Rows(27).Hidden = True
Rows(28).Hidden = True
Rows(31).Hidden = True
Rows(32).Hidden = True
Rows(41).Hidden = False
Rows(42).Hidden = False
Else
Sheets("Gain&Offset Berechnung 2").Visible = True
Sheets("Combiner Test").Visible = True
Sheets("Leistung Combiner").Visible = True
Rows(19).Hidden = False
Rows(20).Hidden = False
Rows(23).Hidden = False
Rows(24).Hidden = False
Rows(27).Hidden = False
Rows(28).Hidden = False
Rows(31).Hidden = False
Rows(32).Hidden = False
Rows(41).Hidden = True
Rows(42).Hidden = True
End If
Dim i As Double
For i = 70 To 94
If Range("h1").Value = 1 Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next
End Sub
Ich hoffe mein Problem gut genug geschildert zu haben und bedanke mich schon einmal im voraus.
https://www.herber.de/bbs/user/74342.xls