nur eine kurze Frage zu Variablen. Möchte der Übersicht wegen einige Public Variablen beim öffnen des Arbeitsblattes mit Wert füllen und dann später nutzen.
Erreiche ich Worksheet_Change cells(U1.... hat die Variable keinen Inhalt?
Wo ist denn mein Fehler? Ich möchte einfach die letzte Eingabe einer Zelle in ein andere übertragen. vielleicht is das ja auch einfacher möglich?
Danke für Euer Intresse und Gruß Bernhard
Public lZ As Range 'letzte aktive Zeile
Public U1 As Range
Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
Set U1 = Range("E3")
End Sub
Private Sub Worksheet_Activate()
Set U1 = Range("E3")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim U1 As Range
Dim Reihe As String
Dim Zeile As String
If lZ.Row = 100 And lZ.Column = 4 Then
Cells(U1.Row, U1.Column) = Cells(lZ.Row, lZ.Column)
End If
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set lZ = ActiveCell
End Sub