Für Makro Spezialisten (Makro Schleife)

Einen schönen guten Morgen zusamme,
ich brauchen bei einem Makro eure Hilfe.
Ich habe zwar schon einige Tips bekommen,
aber leider komme ich damit nicht zurecht.
Daher möchte ich die Frage noch mal stellen und habe eine Beispieldatei
mit hochgeladen.
In dem Orginal Excelshett habe ich ca. 40 Tabellenblätter wobei 35 Tabellenblätter das gleiche Makro haben.
https://www.herber.de/bbs/user/15040.xls
Das Beispiel was ich hochgeladen habe, hat nur 6 Tabellenblätter.
Daher werde ich meine Frage auf dieses Arbeitsblatt beziehen.
Drei Tabellenblätter sind gleich aufgebaut und haben das gleiche Makro (A1 - A2 - A3).
Wie kann ich jetzt diese drei Makros mit nur einem Makro ansprechen.
Oder kann ich mit einem Makro (Makroschleife)die drei Seiten bearbeiten lassen.
Ich brauche dringend ein Beispiel dafür, damit ich verstehe was ich machen muß.
Ich bedanke mich schon mal im vorraus für die Hilfe und die Mühe.
Das das wohl meine letzte Frage dieses Jahr ist,
möchte ich allen ein schönes Weihnachtsfest und ein frohes neues Jahr wünschen.
Mit freundlichen Grüßen
Thomas Goldmann

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
Das folgende Makros kannst Du in die Arbeitsmappe einfügen.
Du musst nur die Zeilen anpassesn: ixFromSheet (Nummer ab welchem Arbeitsblatt)
und ixToSheet (Nummer bis zu welchem Arbeitsblatt) anpassen, falls Du mit mehr als den Blättern im Beispiel arbeits willst.
Nachher machst Du eine Menu-Schaltfläche, der Du dieses Makro zuweist und es sollte funtkionieren.


Sub Werte_Uebertragen()
Dim iCol As Integer
Dim iRow As Long
Dim iStartRow As Long
Dim iSkip As Integer
Dim ixSheet As Integer
Dim iFromSheet As Integer
Dim iToSheet As Integer
iFromSheet = 2                ' Ab diesem Blatt Index
iToSheet = 4                  ' Bis zu diesem Blatt Index
For ixSheet = iFromSheet To iToSheet
iCol = Sheets(ixSheet).Range("o6:o16").End(xlToLeft).Column
If Not IsEmpty(Sheets(ixSheet).Cells(6, iCol)) Then iCol = iCol + 1
If Sheets(ixSheet).Cells(6, 12) <> "" Then
MsgBox "Reihe für Tabelle " & Sheets(ixSheet).Name & "ist voll!" & vbCrLf & _
"Keine Übertragung erfolgt!", , "Werte übertragen."
Else
iSkip = 0
For iStartRow = 6 To 122 Step 29
For iRow = iStartRow To iStartRow + 10
If iSkip < 2 Then
Sheets(ixSheet).Cells(iRow, iCol) = Sheets(ixSheet).Cells(iRow, 15)
iSkip = iSkip + 1
Else
iSkip = 0
End If
Next iRow
Next iStartRow
End If
Next ixSheet
End Sub

Gruss Hansueli

Beliebteste Forumthreads (12 Monate)

Für Makro Spezialisten (Makro Schleife)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread