Macro auf markierte Zeilen anwenden
11.09.2018 13:55:04
Sven
Ich komme leider nicht weiter und habe auch nicht die VBA Kenntnisse.
Ich habe ein Macro was mir eine Zeile Kopiert und darunter dann einfügt.
Dieses Macro würde ich gern auf mehrere Zeilen ausführen die ich einfach mit der Maus markiere.
So Sieht mein derzeitiges Macro aus:
Sub IST_SOLL1()
Dim Row1 As Integer
Dim row2 As Integer
iRow = 1
Row1 = ActiveCell.row
'Ausgwählte zeile kopieren
Rows(Row1).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Rows(Row1).Select
Application.CutCopyMode = False
'Texte eintragen
Cells(Row1, 1).Value = "IST"
Cells(Row1 + 1, 1).Value = "SOLL"
'Zellen farblich machen
Cells(Row1 + 1, 1).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Erweitert habe ich es in soweit das er es mit einer Do While Schleife ausführt:
Sub IST_SOLL2()
Dim iRow As Integer
Dim dValue As Double
Dim Row1 As Integer
Dim row2 As Integer
iRow = 1
'Schleife mit 2 Bedingungen 1) Neben ausgewählte Zelle hat Inhalt und 2) ausgwählte Zelle ist _
leer
Do While Not IsEmpty(ActiveCell(iRow, 2)) And IsEmpty(ActiveCell)
Row1 = ActiveCell.row
'Ausgwählte zeile kopieren
Rows(Row1).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Rows(Row1).Select
Application.CutCopyMode = False
'Texte eintragen
Cells(Row1, 1).Value = "IST"
Cells(Row1 + 1, 1).Value = "SOLL"
'Zellen farblich machen
Cells(Row1 + 1, 1).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Nur bekomme ich es halt nicht so hin das Macro auf markierte Zeilen nur auszuführen.
Würde mich über eure Hilfe riesig freun :)
LG Sven