VBA Schleife programmieren
12.09.2016 09:49:55
Liana
ich möchte in Excel eine Schleife programmieren. Da meine VBA Kenntnisse äußerst bescheiden sind, komme ich einfach nicht weiter.
Das Problem sieht folgendermaßen aus:
Ich habe eine Tabelle "Muster6" mit 286 Einträgen. In Spalte M steht die Bausumme welche ich per Copy&Paste in die Tabelle "§34_KG300 HOAI 2009" in Zelle A46 einfüge. Dann wird in Zelle D61:E61 ein Mindest- und Höchstsatz ermittelt, welchen ich per Copy&Paste in die Tabelle "Honorare" Zelle G4:H4 einfüge.
Mein einfaches Makro, welches noch zu einer Schleife programmiert werden soll, sieht folgendermaßen aus:
Sub KG300()
' KG300 Makro
' Tastenkombination: Strg+q
Sheets("Muster6").Select
Range("M4").Select
Selection.Copy
Sheets("§34_KG300 HOAI 2009").Select
Range("A46").Select
ActiveSheet.Paste
Range("D61:E61").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Honorare").Select
Range("G4").Select
ActiveSheet.Paste
End Sub
Ich möchte nun das Excel in Spalte M (Tabelle "Muster6") immer eine Zelle weiter springt und die berechneten Honorare immer in die nächste Zelle in Spalte G:H (Tabelle "Honorare") einfügt.
Sicher ist das total einfach zu lösen, wenn man Ahnung hat.
Ich danke schon mal für jede Hilfe!