Schleife aus 2 Excel Modulen verbinden und 10mal ablaufen

16.07.2025 13:03:58

mckater

Hallo Liebe Excel Freaks,
steh wieder mal auf einen "Schlauch" und finde keine Lösung.
Habe 2 Module in Excel und die verbinden könnte ja man machen mit Gehe zu oder so?....also würden alle Module ablaufen.
Wie kann man sagen wie man zwei Module in Excel sagt, mach das 10mal oder so?

Nächstes Problem....die Daten aus dem ersten RUN...wie Zeile A12 bis G12 sollen dann kopiert werden in ein anders Tabellenblatt.
Sagen wir mal in A1:G12 (also von Tabelle1 kopierst es in Tabelle2 rein und gehst eine Zeile runter)
Und vom nächsten Start was vorgeben ist, machst das GLEICHE, aber bitte in der nächsten Zeile und nicht da wo schon Daten stehen.
Dann brauche ich natürlich einen Offset der Schleife, weil ja die nächsten Daten eine Zeile darunter liegen sollen und sich nicht überschreiben sollen.

Kann man eine Schleife schreiben die von Modul 1 bis zum Modul 2 sagt, mach es 10mal so und dann Ende.

AW: Schleife aus 2 Excel Modulen verbinden und 10mal ablaufen

16.07.2025 13:17:16

Yal

Hallo Mc,

Du kannst eine Verarbeitung, wenn sie z.B. in einer Schleife zu viel Platzt nimmt, in einer separaten Prozedure und diese in der Schleife aufrufen. Spezifische Information müssen dann als Prozedure-Parameter übergeben werden:

Sub Hauptprozedure()

Dim i As Long



    For i = 1 To 100

        DateiÖffnenVerarbeitenSchliessen "C:\temp\Datei_" & i & ".xlsx"

    Next

End Sub



Sub DateiÖffnenVerarbeitenSchliessen(Dateipfad As String)

Dim wb As Workbook



On Error Resume Next

'Datei öffnen

    Set wb = Workbooks.Open(Dateipfad)

    If wb Is Nothing Then

        Debug.Print "könnte nicht geöffnet werden: " & Dateipfad

        Exit Sub

    End If

 'Datei verarbeiten

    '...

'Datei schliessen

    wb.Close SaveChanges:=True

End Sub

Es handelt sich um Grundlage der Programmierung. Dafür gibt es viele Video-Tutorial im Netz. Es ist wenig sinnvoll, dass wir die Inhalte diesen Tuto hier nachtippen.

VG
Yal

AW: Schleife aus 2 Excel Modulen verbinden und 10mal ablaufen

16.07.2025 13:24:07

JoWE

Hallo Namenloser der nicht grüßen kann,

vielleicht so:

Option Explicit



Sub machs_zehn_mal()

  Dim d As Integer

  For d = 1 To 10

    Call Modul1.makro1  'Name des Makros anpassen



    'willst Du tatsächlich 10 x hintereinander das gleiche kopieren???

    'Sheets("Tabelle1").Range("A1:G12").Copy

    'Sheets("Tabelle2").Range ("A" & Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1), Paste



    Call Modul1.makro2  'Name des Makros anpassen

  Next

End Sub

Gruß
Jochen

AW: Schleife aus 2 Excel Modulen verbinden und 10mal ablaufen

16.07.2025 22:43:52

Piet

Hallo

du denkst viel zu kompliziert, und dreimal um die Ecke.
Hättest du konkret gesagt, was von wo nach wo kopiert werden soll, hättest du auch eine Lösung bekommen.

Statt 10mal eine Zeile kannst du den ganzen Bereich von bis kopieren. Das ist doch viel einfacher.
Wenn du Daten untereinander kopieren willst sucht man in Tabelle2 zuerst die LastZelle, z.B. in Spalte A
Dann kopiert man die Daten automatisch unter die bereits vorhandenen Daten.
Hier mal ein Code Vorschlag wie man sowas programmieren kann.

mfg Piet

Sub kopieren()

Dim Tb1 As Worksheet

Dim Tb2 As Worksheet, lz2 As Long

Set Tb1 = Worksheets("Tabelle1")

Set Tb2 = Worksheets("Tabelle2")

'LastZell in Tabelle2 ermitteln +1 (nächste Zeile)

lz2 = Tb2.Cells(Rows.Count, 1).End(xlUp).Row + 1



'Dein Bereich in Tabelle1 kopieren

Tb1.Range("A1:G12").Copy

Tb2.Cells(lz2, 1).PasteSpecial xlPasteValues

Application.CutCopyMode = False



'ggf. kopierten Bereich löschen

Tb1.Range("A1:G12").ClearContents

End Sub

Schleife aus 2 Excel Modulen verbinden und 10mal ablaufen

Forumthread: Schleife aus 2 Excel Modulen verbinden und 10mal ablaufen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Schleife aus 2 Excel Modulen verbinden und 10mal ablaufen

Forumthread: Schleife aus 2 Excel Modulen verbinden und 10mal ablaufen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread