Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA letzte beschriebene Zeile finden und text kopieren

VBA letzte beschriebene Zeile finden und text kopieren
30.01.2020 18:55:40
Andi
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA letzte beschriebene Zeile finden und text kopieren
30.01.2020 21:19:10
GerdL
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 
Gruß Gerd
AW: VBA letzte beschriebene Zeile finden und text kopieren
30.01.2020 22:56:32
Andi
Danke Gerd ... Funktioniert einwandfrei
Gruß Andi
AW: VBA letzte beschriebene Zeile finden und text kopieren
31.01.2020 12:55:01
SF
Hola,
find ich toll dass du dich im anderen Forum auch für den Lösungsvorschlag bedankt hast....feiner Zug....nicht.
Gruß,
steve1da
Anzeige

167 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige