Richtige Zelle auswählen

Hallo Excelfreunde, Gut morgen.
Der Code überträgt Daten von der Tabelle "Angebote" zu der Tabelle "Klienten".
Mein Problem: der Code überträgt die Daten in Range("B3") und so weiter.
Ich möchte die Übertragung der lezten angetragene Daten(Erste freie Zeile).
Wie soll der Code entsprechend ändern???


Sub Kunde_Aufnehmen()
If MsgBox("Als aktive Kunde in der Liste aufnehmen ? ", vbInformation + vbYesNo, "OFFICECONTROL") = 7 Then Exit Sub
Dim LoLetzte As Long
With Worksheets("Klienten")
ActiveSheet.Unprotect
LoLetzte = .Range("b65536").End(xlUp).Row + 1
.Cells(LoLetzte, 1) = Worksheets("Angebote").Range("B3")
.Cells(LoLetzte, 2) = Worksheets("Angebote").Range("c3")
.Cells(LoLetzte, 3) = Worksheets("Angebote").Range("d3")
.Cells(LoLetzte, 4) = Worksheets("Angebote").Range("e3")
.Cells(LoLetzte, 5) = Worksheets("Angebote").Range("f3")
.Cells(LoLetzte, 6) = Worksheets("Angebote").Range("g3")
.Cells(LoLetzte, 7) = Worksheets("Angebote").Range("h3")
.Cells(LoLetzte, 8) = Worksheets("Angebote").Range("i3")
.Cells(LoLetzte, 9) = Worksheets("Angebote").Range("j3")
.Cells(LoLetzte, 10) = Worksheets("Angebote").Range("k3")
.Cells(LoLetzte, 11) = Worksheets("Angebote").Range("l3")
.Cells(LoLetzte, 12) = Worksheets("Angebote").Range("m3")
.Cells(LoLetzte, 13) = Worksheets("Angebote").Range("n3")
.Cells(LoLetzte, 14) = Worksheets("Angebote").Range("o3")
.Cells(LoLetzte, 15) = Worksheets("Angebote").Range("p3")
.Cells(LoLetzte, 16) = Worksheets("Angebote").Range("q3")
.Cells(LoLetzte, 17) = Worksheets("Angebote").Range("r3")
.Cells(LoLetzte, 18) = Worksheets("Angebote").Range("s3")
.Cells(LoLetzte, 19) = Worksheets("Angebote").Range("t3")
.Cells(LoLetzte, 20) = Worksheets("Angebote").Range("u3")
ActiveSheet.Protect
Sheets("Klienten").Select
If MsgBox("Als aktive Kunde aufgenommen! - zurück zu Angebote? ", vbInformation + vbYesNo, "OFFICECONTROL") = 6 Then
Sheets("Angebote").Select
End If
End With
End Sub

Danke
Pippo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub LastCell() Dim rng As Range Dim varCol As Variant Sheets("Klienten").Activate varCol = 1 If varCol = "" Then Exit Sub Set rng = Cells(Rows.Count, CInt(varCol)).End(xlUp) rng.Offset(1, 0).Select With ActiveCell Range(.Offset(0, 0), .Offset(0, 20)).Value = Sheets("Angebote").Range("b3:u3").Value End With End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread