Makro für Kopieren u. Wert ändern in Excel
26.08.2007 14:29:00
Dennis
Wer kann mir beim Erstellen eines Makros für Excel helfen? Hab zwar schon ein bissle rumgebastelt und allgemeine VB- Kenntnisse verbessert, das konkrete Problem vermag ich dennoch nicht zu lösen. Folgende Situation:
Die Arbeitsmappe hat ca. 70000 Datensätzen (verteilt auf 2 Tabellen). Jeder einzelne Datensatz sollte kopiert und drei Mal nachfolgend eingefügt werden.
(wichtig ist natürlich, dass der darauffolgende Datensatz nicht überschrieben wird). Dabei soll sich der Wert einer bestimmten Zelle um 1 erhöhen (Startwert ist standardmäßig 1). Allerdings nur bis Wert 4, da dieser der maximalen Anzahl des Datensatzes entspricht.
ALT:
A B
Datensatz 1 1
Datensatz 2 1
Datensatz 3 1
NEU:
A B
Datensatz 1 1
Datensatz 1 2
Datensatz 1 3
Datensatz 1 4
Datensatz 2 1
Datensatz 2 2
Datensatz 2 3
Datensatz 2 4
Hab versucht das Problem mit der Aufnahme eines Makros zu lösen, hier fehlt aber der relative Zeilenbezug, d.h. nach dem Kopieren erfolgt Prozedur auf Basis der absoluten Bezüge
nur der erste Datensatz wird vervielfältigt und springt nicht automatisch zum zweiten Datensatz.
Für Lösungsvorschläge bin ich sehr dankbar . DANKE
Meine bisherigen kläglichen VBA- Versuche:
Sub Makro2()
' Makro2 Makro
' Tastenkombination: Strg+v
'Rows("2:2").Select
Rows("2:2").Activate
'Range("AZ2").Select
Range("AZ2").Activate
'Range("AZ2").Offset
'Rows.Offset(1, 0).Select
Range("B2").Activate
Selection.Copy
Rows("3:3").Select
Range("B3").Activate
Selection.Insert Shift:=xlDown
Selection.Copy
Rows("3:3").Select
Range("B3").Activate
Selection.Insert Shift:=xlDown
Selection.Copy
Rows("3:3").Select
Range("B3").Activate
Selection.Insert Shift:=xlDown
Range("AZ3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "2"
Range("AZ4").Select
ActiveCell.FormulaR1C1 = "3"
Range("AZ5").Select
ActiveCell.FormulaR1C1 = "4"
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Activate
End Sub
Dennis
