Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopier Marko

Kopier Marko
Koenig
Hallo,
ich habe von Rudi letzte Woche diesen Code bekommen, um per Makro Zeilen automatisch nach unten zu kopieren. Diese Makro kopiert mir eine feste Zeile in alle anderen.
Sub FormelRein()
Dim lngZ As Long
Application.ScreenUpdating = False
lngZ = Cells(1, 1).End(xlDown).Row
Range(Cells(5, 2), Cells(lngZ, 74)).Formula = Cells(5, 2).Formula
Application.ScreenUpdating = True
End Sub

Ich hätte gern ein Makro, das mir aus jeder Spalte die Zeile 5 (B5; c5; d5 usw.)nach unten kopiert bis ein besitmmter Wert erreicht ist (Dieser sollte aus Spalte A kommen alle Zeilen die nicht leer sind). Da in den Jeweiligen Feldern unterschiedliche Formeln stehen. Wäre super wenn ich hier nochmal auf euer Können zurück greifen könnte. Vielen Dank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kopier Marko
10.05.2010 21:15:04
Gerd
Hallo Koenig!
Je nachdem wie deine Datenstruktur in Zeile 5 aussieht.
Probier mal.
Sub Runter_aus_der_Fünften()
Dim lngZ As Long
Application.ScreenUpdating = False
lngZ = Cells(1, 1).End(xlDown).Row
Cells(5, 2).Resize(lngZ - 4, Cells(5, 2).End(xlToRight).Column - 1).FillDown
Application.ScreenUpdating = True
End Sub
Gruß Gerd
AW: Kopier Marko
11.05.2010 08:32:03
Koenig
vielen Dank, das Funktioniert genau so wie ich es mir gedacht habe.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige