Variablendeklaration+Wert einsetzen
Steffen
ich habe ein Problem mit dem definieren Variablen.
Ich möchte die aktive in eine variable einlesen sobald ich die Zelle verlasse.
Ich habe es mit:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng As Range
Dim rw As Long
Dim cl As Long
Set rng = ActiveCell.Adress
Set rw = ActiveCell.row
Set cl = ActiveCell.Column
If ActiveCell.Value <> "" And Cells(5, ActiveCell.Column + 1) = "w" Then
If Target.Address = rng.Address Then bln = True
If bln = True And Target.Address <> rng.Address Then
If Cells(rw, cl).Value <> "" Then Cells(rw, cl + 1).Value = "w"
bln = False
End If
End If
End Sub
Ich möchte nach der Eingabe in der aktiven Zelle eine Spalte daneben einen Wert reinschreiben.
Leider klappt das überhaupt nicht.
Vielleicht habt Ihr eine Idee
Vielen Dank schonmal
Steffen
Anzeige