Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon tomtom123 vom 26.05.2021, 17:46 Options
Letzte belegte Zelle in Spalte A soll 95 mal in die darunter liegenden Zellen kopiert werden
ich habe ein Problem, zu dem ich leider nichts im Internet gefunden habe. In Spalte A soll in einem Makro die letzte belegte Zelle beginnend ab A 3 gesucht werden und dann jeweils in die darunterliegenden Zellen 95 mal kopiert werden.
Kann mir jemand helfen ?
Freundliche Grüße
tomtom123
Antwort 1 von Hajo_Zi vom 26.05.2021, 19:17 Options
Option Explicit
Sub Tom()
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
If LoLetzte < 3 Then LoLetzte = 3
Range(Cells(LoLetzte + 1, 1), Cells(LoLetzte + 95, 1)) = Cells(LoLetzte, 1)
End Sub
Gruß Hajo
Antwort 2 von Hajo_Zi vom 26.05.2021, 19:25 OptionsLösung
oder tatsächlich kopieren
Option Explicit
Sub Tom()
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
If LoLetzte < 3 Then LoLetzte = 3
Cells(LoLetzte, 1).Copy Range(Cells(LoLetzte + 1, 1), Cells(LoLetzte + 95, 1))
End Sub
Gruß Hajo
Antwort 3 von tomtom123 vom 26.05.2021, 20:49 Options
hab das letzte gleich ausprobiert. Es funktioniert super ! Vielen Dank !!! Einen Schönen Abend noch.
Tom
Antwort 4 von maxera vom 30.07.2021, 18:36 Options
die Lösung ist wirklich Spitze. Ich habe leider nicht das Wissen, um die Lösung zu verstehen. Wie müsste das denn Aussehen, wenn ich das ganze in eine andere Spalte z.B. Zelle"B12" verlege?
Gruß maxera
Ähnliche Themen
Excel, suche nach Wert in einer Zelle und Kopieren des Wertes der 24.Zeile darunter
mistermo 06.12.2007 - 101 Hits - 7 Antworten
Zellen in eine Spalte vergleichen, und bei gleiche Werte die Zeilen der dazugehörige spalte zusammentun
Mnogokuh 11.04.2008 - 67 Hits - 6 Antworten
Nach Text suchen und letzte Spalte ausgeben
simon___ 16.07.2008 - 25 Hits - 2 Antworten
Excel: einen Wert entsprechend eines Suchkriteriums suchen und einen in der jeweiligen Spalte darunter liegen Wert darstellen
walfon 20.10.2008 - 68 Hits - 5 Antworten
Excel letzte beschriftete Zelle finden
wmei 24.03.2009 - 1726 Hits - 15 Antworten
Hinweis
Neue Einträge
