habe folgendes Worksheet in Excel 2003 erstellt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Integer
Dim lngLastRow As Long
On Error GoTo Errh
If Target.Column = 1 And Selection.Count = 1 Then
Application.EnableEvents = False
With Sheets("Mitglieder")
lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
Bereich = Application.Match(Target, .Range(.Cells(1, 1), .Cells(lngLastRow, 1)), 0)
Target = .Cells(Bereich, 2)
End With
End If
If Not Application.Intersect(Target, Range("C6:AD213")) Is Nothing Then
Range("B214").Value = "Bearbeitet von " & Application.UserName _
& " am " & Now
End If
Errh:
Application.EnableEvents = True
End Sub
Ich habe jetzt Excel 2007 und nun funktioniert es leider nicht mehr richtig.
Es sollte durch auswählen des Namen im Feld "A6" gleichen Feld dann aber die Mitgliedesnummer erscheinen und im Feld "B6" der Name und Vorname erscheinen.
Wer weiß wo es hier kneift;-)?
Danke im voraus
Gruß
Jochen