Clever-Excel-Forum

Hallo zusammen,

ich habe folgendes Problem. Ich versuche einen CommandButton zu programmieren, welcher in einem anderen Reiter eine Zelle überschreibt.

Private Sub CommandButton1_Click()

If Range("B2").Value = "" Then
Range("B2").Value = "a"
Else
Range("B2").Value = ""
End If

End Sub

Mit diesem Programm funktioniert die Funktion, wenn die zu überschreibende Zelle "B2" ist.
Nun habe ich aber das Problem, dass ich es nicht schaffe den Zellbezug auf einen anderen Reiter zu legen. :22:

Außerdem habe ich noch eine Zelle, wo über einen Wert die Bezugszelle geändert werden soll.
Damit meine ich, dass wenn in der Zelle eine "1" steht, dann soll die Zelle "B2" überschrieben werden.
Bei einer "2" soll die Zelle "B3" überschrieben werden.
"3" --> "B4" und so weiter.

Ich habe eine Excel-Datei angehangen, in welcher ich das Problem veranschaulicht habe.
Bitte helft mir.

Mit freundliche Grüßen
Lucas

Hallo,

so:

Code:
Private Sub CommandButton1_Click()

Dim Zeile As Long

Zeile = Worksheets("Darstellung").Range("D2")

With Worksheets("Werte")

    .Range("B" & Zeile + 1) = IIf(.Range("B" & Zeile + 1) = "a", "", "a")

End With

End Sub

Gruß Werner

Lucas72

Werner.M