Microsoft Excel

Herbers Excel/VBA-Archiv

VBA letzte beschriebene Zeile finden und text kopieren

Betrifft: VBA letzte beschriebene Zeile finden und text kopieren von: Andi
Geschrieben am: 30.01.2020 18:55:40

Hallo Zusammen ,

ich habe ein Makro dass in die letzte beschriebene Zeile + Leerzeile einer Spalte z.B hier "B" den Inhalt von andereen Zellen kopiert .

Nun habe ich das Problem das ich das Makro gerne nur auf einen bestimmten bereich beziehen soll z.B "B25:B44"

Steht in dem Bereich nichts soll Zeile 25 als erste Zeile genommen werden und der Text in Zeile 27 kopiert werden

z.B steht in zelle B30 ein Wert soll der Text in Zeile B32 kopiert werden obwohl z.B in zelle 50 auch was steht was bei diesen Makro dann nicht funktionieren würde .


Hier mal das vorhandene Makro :

Sub Kopie_Letzte_Zeile()
Dim LastRow As Integer
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
Cells(LastRow + 2, "B") = Cells(135, "C")
Cells(LastRow + 2, "D") = Cells(135, "E")
Cells(LastRow + 2, "F") = Cells(135, "g")
End Sub


Ich hoffe ich konnte es genau genug erklären und es kann mir jemand helfen :)


Lg

Betrifft: AW: VBA letzte beschriebene Zeile finden und text kopieren
von: GerdL
Geschrieben am: 30.01.2020 21:19:10

Moin Andi
Sub Kopie_Letzte_Zeile()

Dim LastRow As Long

If IsEmpty(Cells(43, "B")) Then
    LastRow = Cells(43, "B").End(xlUp).Row
Else
 LastRow = 43
End If
If LastRow < 25 Then LastRow = 25

Cells(LastRow + 2, "B") = Cells(135, "C")
Cells(LastRow + 2, "D") = Cells(135, "E")
Cells(LastRow + 2, "F") = Cells(135, "g")

End Sub
Gruß Gerd

Betrifft: AW: VBA letzte beschriebene Zeile finden und text kopieren
von: Andi
Geschrieben am: 30.01.2020 22:56:32

Danke Gerd ... Funktioniert einwandfrei

Gruß Andi

Betrifft: AW: VBA letzte beschriebene Zeile finden und text kopieren
von: SF
Geschrieben am: 31.01.2020 12:55:01

Hola,

find ich toll dass du dich im anderen Forum auch für den Lösungsvorschlag bedankt hast....feiner Zug....nicht.

Gruß,
steve1da

Beiträge aus dem Excel-Forum zum Thema "VBA letzte beschriebene Zeile finden und text kopieren"