Makro unter Excel wiederholt ausführen

Computer: Software & Programmierung Office Software
1

Zuerst einmal einen schönen guten Morgen!

Ich steh vor vollgendem Problem:

Ich habe eine Excel Auswertung aus der AS/400 gezogen.
Darin sind Salden sortiert nach Namen aufgelistet.

Ich habe dieses Makro aufgezeichnet:
’ Makro
’ Tastenkombination: Strg+q
’
Range(„D1207:F1208“).Select 'Einen Bereich 3x2 selektieren
Selection.ClearContents 'Den Bereich löschen
Range(„C1209“).Select 'Eine Zelle selektieren
Selection.ClearContents 'Zelle löschen
Range(„E1209:F1209“).Select '2 Zellen selektieren
Selection.Cut 'Zellen ausschneiden
Range(„E1207:F1207“).Select 'Zellen zum einfügen makieren
ActiveSheet.Paste 'Zellen einfügen
Rows(„1208:1209“).Select '2 Spalten makieren
Range(„A1209“).Activate ’
Selection.Delete Shift:=xlUp’Makierung löschen
End Sub
'Makro Ende

3 Zeilen weiter also Range(„D1210:F1211“) den selben Vorgang
wiederholen. Diese Vorgang soll auf Tastenkombination geschehen,
da mehrere Datensätze vorhanden sind (tausende *g*).

Mein Verstand sagt mir das dort mit Variablen gearbeitet werden soll.
Da ich aber kein VB-Kenner bin, geschweige dann ein Programmierer
(sondern „nur“ ein Informatikkaufmann Azubi) weiß ich nicht wie ich
das Anstellen soll.

Wäre nett wenn Sie mir helfen könnten!

2

Moin Lui21

du hast recht mit deiner Vermutung nach Variablen.

Stelle erst einmal dein Makro um, dass die absoluten Feldbezüge mit Variablen ausgedrückt werden:

' Variablen anlegen
Dim i as Integer
Dim j as Integer
Dim k as Integer
Dim l as Integer

' so selektiert man einen Bereich:
' z.B. A1:C5
i = 1 ' Zeile 1
j = 1 ' Spalte 1
k = 5 ' Zeile 5
l = 3 ' Spalte 3
Range(Cells(i, j), Cells(k, l)).Select

' eine Zeile selektieren z.B. die erste
Range(Cells(1))

Danach kannst Du das ganze noch in eine Sub packen, um den Algorithmus mehrfach zu verwenden:

' Beispiel eigene Sub
' mit Parametern Zeile, Spalte #1, Zeile, Spalte #2, falls Du's brauchst
Sub(byval z1 as Integer, s1 as Integer, z2 as Integer, s2 as Integer)
' ...
' ...
End Sub

Dann immer mal in die VB Hilfe schauen und im Netz nach einem VB Tutorial googeln. Davon gibt’s genug.

Cheers
Hawky

3

Vielen Dank für die Erklärung mit den Variablen,

aber in meinem Fall gibts noch eine einfachere Lösung die ich scheinbar übersehen hab *g*.

Einfach den „relativen Verweis“ aktivieren, damit kann das selbe Makro, unter selben Bedingungen auch auf anderen Zellen ausgeführt werden.

Trotzdem vielen Dank!

MfG
Lui21