AW: Cells(ActiveCell.Row, 2)
23.06.2015 10:45:01
Malte
Hm das gibt mir den Wert FALSCH in der Zelle raus,
aber das liegt wahrscheinlich daran, dass das ganze ein wenig komplexer ist und ich einfach dachte ich könne es ohne posten von Zusammenhängen lösen...
Also hier der Zusammenhang:
Ich habe eine Liste in die alle Änderungen ausgelesen werden (freundlicherweise gecoded von einem anderen Forenmitglied)
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Dim lngLZ As Long
Dim rngZelle As Range
On Error GoTo Fehler
'Zellwertänderungen aller Tabellen in Tabelle 'wksDoku' eintragen
'Ausnahme: Zelländerung in wksDoku
If Sh.CodeName "wksDoku" Then
'damit DIESE Prozedur durch Eingaben in wksDoku
'NICHT gestartet wird
Application.EnableEvents = False
With wksDoku
'erste freie Zeile in wksDoku ermitteln
lngLZ = .Cells(1, 1).End(xlDown).Row + 1
'wenn wksDoku voll dann alte Inhalte löschen
If lngLZ > Rows.Count Then
Call NeuesProtokoll
'erste freie Zeile in wksDoku ermitteln
lngLZ = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
.Cells(lngLZ, 2) = ActiveSheet.Name
.Cells(lngLZ, 3) = ActiveSheet.Name 'Hier soll der Personenname rein,
'zu finden in derselben Zeile Spalte B wie rngZelle
.Cells(lngLZ, 6) = Environ("Username")
.Cells(lngLZ, 7) = Environ("Computername")
.Cells(lngLZ, 8) = ThisWorkbook.FullName
'falls gleichzeitige Eingabe in mehreren Zellen
For Each rngZelle In Target
.Cells(lngLZ, 1) = Now
.Cells(lngLZ, 4) = rngZelle.Value 'Hier soll der Modulname rein,
'zu finden in derselben Spalte, Zeile 7 wie rngZelle
If rngZelle.Value = "" Then
.Cells(lngLZ, 5) = ""
Else
.Cells(lngLZ, 5) = rngZelle.Value
End If
lngLZ = lngLZ + 1
If lngLZ > Rows.Count Then
Call NeuesProtokoll
'erste freie Zeile in wksDoku ermitteln
lngLZ = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Next
End With
Application.EnableEvents = True
End If
Exit Sub
Vielen Dank fürs Helfen!
Malte