Supportnet Computer
Planet of Tech

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.

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.


Antwort 3 von JoeKe

Moin,

call Werte_eintragen6() musst du vor end sub einfügen.

Gruß JöKe

Antwort 4 von Astronaut

Hat funktioniet. Vielen Dank!

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: