AW: Ausgabe bei erneutem Klick in andere Zeile
09.01.2015 11:03:24
Klaus
Hi Michi,
Möglichkeit 1: der Wert soll in der letzten freien Zeile erscheinen. In dem Fall:
If Not Range("A1").Value = 1 Then
letztezeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & letztezeile).Value = 1
Else
Range("A1").Value = 1
End If
Startet es tatsächlich in Zeile 1? Wenn es nicht in Zeile 1 startet, kann man sich das umständliche IF-Konstrukt um die erste Zeile abzufangen sparen:
letztezeile = Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A" & letztezeile).Value = 1
Möglichkeit 2: Der Wert soll bei Dateistart beim ersten Click in A1 stehen, beim zweiten in A2 - egal was da sonst steht. Dann kannst du dir die Variable mit "static" merken:
Sub Steuerelement()
Static MeineZeile
MeineZeile = MeineZeile + 1
Range("A" & MeineZeile).Value = 1
End Sub
Grüße,
Klaus M.vdT.