Daten übergabe
14.09.2003 12:51:08
Andreas
Ich habe einen Code wo daten in ein anderes Tabellenblatt geschrieben werden.
Ich möchte jetzt in einer Msg Box angezeigt bekommen wieviel Daten in die Tabelle geschrieben worden sind .
Hier der Code
Sub Rueber()
Dim lgLetzte As Long
Dim wks As Worksheet
Set wks = Sheets("Fahrzeug _ Termine")
lgLetzte = Sheets("Datenbank").Range("A65536").End(xlUp).Row + 1
With Sheets("Datenbank")
If .Range("A2") = "" Then
.Cells(3, 2) = wks.Cells(3, 2)
.Cells(3, 1) = wks.Cells(3, 5)
.Cells(3, 3) = wks.Cells(7, 3)
.Cells(3, 4) = wks.Cells(9, 4)
.Cells(3, 5) = wks.Cells(11, 4)
.Cells(3, 6) = wks.Cells(13, 5)
.Cells(3, 7) = wks.Cells(20, 2)
.Cells(3, 8) = wks.Cells(22, 2)
.Cells(3, 9) = wks.Cells(18, 5)
Else
.Cells(lgLetzte, 2) = wks.Cells(3, 2)
.Cells(lgLetzte, 1) = wks.Cells(3, 5)
.Cells(lgLetzte, 3) = wks.Cells(7, 3)
.Cells(lgLetzte, 4) = wks.Cells(9, 4)
.Cells(lgLetzte, 5) = wks.Cells(11, 4)
.Cells(lgLetzte, 6) = wks.Cells(13, 5)
.Cells(lgLetzte, 7) = wks.Cells(20, 2)
.Cells(lgLetzte, 8) = wks.Cells(22, 2)
.Cells(lgLetzte, 9) = wks.Cells(18, 5)
End If
MsgBox "Daten wirklich übertragen"
End With
End Sub
Kann mir jemand weiter helfen
Danke im Voraus Andreas