Supportnet / Forum / Tabellenkalkulation
Makros verbinden
Frage
Ich habe folgende zwei Makros:
Sub Werte_eintragen5()
Dim i As Integer
For i = 176 To 176 And 178
If Range("D" & i) = "15702" Or Range("D" & i) = "15902" Then
Range("B" & i) = 3
Range("C" & i) = 32
End If
Next
End Sub
und
Sub Werte_eintragen6()
Dim i As Integer
For i = 199 To 215
If Range("D" & i) = "15001" Or Range("D" & i) = "15013" Or Range("D" & i) = "15014" Or Range("D" & i) = "15015" Or Range("D" & i) = "15044" Or Range("D" & i) = "15047" Or Range("D" & i) = "15061" Or Range("D" & i) = "15062" Or Range("D" & i) = "15063" Or Range("D" & i) = "15064" Or Range("D" & i) = "15081" Or Range("D" & i) = "15101" Or Range("D" & i) = "15205" Or Range("D" & i) = "15206" Or Range("D" & i) = "15501" Or Range("D" & i) = "15999" Or Range("D" & i) = "75600" Then
Range("B" & i) = 4
Range("C" & i) = 41
End If
Next
End Sub
Wie kann ich diese zwei Makros verbinden?
Antwort 1 von 54093
wenn du sie nacheinander ausführen willst, kannst du den nächsten mit einem call befehl aufrufen.
z.B im "Sub Werte_eintragen5()"
am ende, also als letzte Anweisung:
call Werte_eintragen6()
dann müsste die nächste funktion aufgerufen werden.
z.B im "Sub Werte_eintragen5()"
am ende, also als letzte Anweisung:
call Werte_eintragen6()
dann müsste die nächste funktion aufgerufen werden.
Antwort 2 von Astronaut
Funktioniert nicht. Es erscheint die Fehlermeldung:
Fehler beim Kompilieren:
Nach End Sub, End Function oder End Property können nur Kommentare stehen.
Fehler beim Kompilieren:
Nach End Sub, End Function oder End Property können nur Kommentare stehen.
Antwort 3 von JoeKe
Moin,
call Werte_eintragen6() musst du vor end sub einfügen.
Gruß JöKe
call Werte_eintragen6() musst du vor end sub einfügen.
Gruß JöKe
Antwort 4 von Astronaut
Hat funktioniet. Vielen Dank!