Komme mit aufgezeichnetem Makro nicht weiter

Hallo an alle,
habe am Ende stehendes Makro aufgezeichnet.
Könnt ihr mir bitte helfen, es anzupassen.
1. Statt Zeile 260 die letzte Zeile mit Inhalt in Spalte D.
2. Statt Zeile 261 alle nachfolgenden Zeilen mit Inhalt.
3. Statt A1:J261 die Spalten B und F und auch nur in den Zeilen, aus Punkt 2. (Wenn das zu kompliziert ist, geht auch alle Zellen mit Inhalt).
Kurzum es geht mir darum, wenn ich zu den zur Zeit 261 Zeilen welche hinzufüge, das Makro die Formeln aus Zeile 261 in die neuen Zeilen übernimmt, sodass dieses Makro immer wieder ausführbar ist, egal wieviele Zeilen bereits die Formeln beinhalten oder wieviele seit dem letzten Ausführen hinzugekommen sind (also die Formeln noch fehlen)
Die Texte, die ich in die Spalten B und F einfüge, werden in Calibri 24, Fett eingefügt, das heißt, das Makro müsste sich gar nicht die Mühe machen den kompletten Bereich, z.Z. A1:J251 in Calibri 11, nicht fett zu ändern, sondern es reicht die Spalten B und F in den seit dem letzten Ausführen neu hinzugekommenen Zeilen.
Kann mir da jemand helfen?
Vielen Dank schonmal
Christian

Sub Makro1()
' Makro1 Makro
' Tastenkombination: Strg+y
Range("A1:J261").Select
Range("H261").Activate
With Selection.Font
.Name = "Calibri"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
With Selection.Font
.Name = "Calibri"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = True
Selection.Font.Bold = False
Range("D260").Select
Selection.Copy
Range("D261").Select
ActiveSheet.Paste
Range("H260:J260").Select
Application.CutCopyMode = False
Selection.Copy
Range("H261").Select
ActiveSheet.Paste
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Spalten_aufCalibri_setzen() Dim Zahl As Variant, z As Long z = Range(zBezug).End(xlUp).Row With Range("D1:D" & z).Font .Name = "Calibri" .Size = 11 .Bold = False End With With Range("H1:J" & z).Font .Name = "Calibri" .Size = 11 .Bold = False End With 'Eingabe für max 10 Zeilen Zahl = InputBox("Wieviele Zeilen sollen kopiert werden? (max 10)", , 1) If Not IsNumeric(Zahl) Then Zahl = 1 Else If Zahl > 10 Then Zahl = 10 'letzte Zeile in Spalte H ermitteln z = Range(zBezug).End(xlUp).Row 'Zelle "D" 1 Zeile tiefer kopieren Range("D" & z).Copy _ Range(Cells(z + 1, "D"), Cells(z + Zahl, "D")) 'Zelle "H;J" 1 Zeile tiefer kopieren Range(Cells(z, "H"), Cells(z, "J")).Copy _ Range(Cells(z + 1, "H"), Cells(z + Zahl, "H")) Application.CutCopyMode = False End Sub

Hallo Erich,
ja dieser Christian bin ich. Tatsache ist, die Mail dass diese Nachricht eingegangen ist war in meinen Spams gelandet, daher ist mir jetzt erst aufgefallen, dass da noch eine Antwort kam. Ich hatte ja durch die programmierte Formel ja auch bereits eine funktionierende Lösung.
Du hast natürlich vollkommen Recht, wenn du sagst, ich solle Rückmeldung geben.
Dazu, ich würde nicht auf deine Nachricht eingehen. Was bringt es mir, großartig auf den Versuch einer Erklärung einzugehen, die für mich nicht zielführend ist, weil ich mit der Ausgabe des 1. des Monats in meinem Fall nichts anfangen kann. Ich habe dies einfach als Erklärung dessen verstanden, zu der kein weiterer Kommentar notwendig ist. Daher habe ich mich auf die Bitte beschränkt, zu überdenken, ob das Monatsende nötig ist.
Aber nichts desto trotz, könntest du mir bitte mit dem Makro helfen?
Muss jetzt allerdings erstmal zu einem wichtigen Temrin um 9, kann das Makro das vorgeschlagen wurde, erst im Anschluss testen.
Gruß
Christian

Beliebteste Forumthreads (12 Monate)

Komme mit aufgezeichnetem Makro nicht weiter

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread