Programmcode wird nicht ausgeführt!
01.02.2006 08:20:46
Thomas
zwischen 2 Tabellenblättern soll ein Datenaustausch erfolgen. Das Tabellenblatt "Eingabe" stellt die Eingabemaske dar.
Das "Datenblatt" sollte die Daten vom Eingabeblatt immer am Schluß der Tabelle einfügen (die Tabelle erweitert sich selbständig).
Wenn ein Datensatz vollständig ist wird ein "J" in die Zelle "G2" gesetzt. Dies bedeutet, der Datensatz ist vollständig und kann übernommen werden. Die Übertragung wird aber vom Code nicht gemacht. Man sieht lediglich wie die Sanduhr kurz läuft aber nichts übernommen wird! Wo liegt das Problem? Der VB-Code ist unten angeführt!
Danke für eure Hilfe
MfG
Thomas
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Loletzte As Long
With Worksheets("Datenblatt")
Loletzte = IIf(IsEmpty(.Range("A65536")), Worksheets("Datenblatt").Range("A65536").End(xlUp).Row + 1, 65536)
If Worksheets("Eingabe").Range("G2").Value <> "J" Then
Exit Sub
Else
Range("A2:F2").Copy Destination:=Cells(Loletzte, 1)
End If
End With
End Sub
Anzeige