Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2020to2024
2020to2024
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA-Makro starten durch Dropdown Textauswahl in Zelle

Forumthread: VBA-Makro starten durch Dropdown Textauswahl in Zelle

VBA-Makro starten durch Dropdown Textauswahl in Zelle
14.12.2025 18:04:44
Alibaba
Hallo liebe Forumhelfer,
ich bräuchte bitte Unterstützung für ein Excel-VBA-Makro.

Ein Excel-VBA-Makro sollte bitte starten, sobald in einer Zelle in Spalte D durch Dropdown Textauswahl "Fertig" die Zelle befüllt wurde.
Nach dem Start des Excel-VBA-Makros sollte die Aktive Zeile von Spalte A bis Spalte H kopiert werden und in ein anderes Tabellenblatt (Erledigte Aufgaben) durch einfügen einer neuen Zeile unter Zeile 2 eingefügt werden.
Danach sollte vor dem Weiterlaufen des Excel-VBA-Makros eine Pause von 2 sec erfolgen.
Den Rest des Makros habe ich durch Makro aufzeichnen schon hinbekommen.

Könnte mir Bitte jemand den oben beschriebenen Teil des Excel-VBA-Makro erstellen.
Das wäre ganz Toll.

Danke im voraus für die Mühe.
LG
Alibaber
Anzeige
AW: VBA-Makro starten durch Dropdown Textauswahl in Zelle
14.12.2025 18:39:18
RPP63
Moin!
Was soll die Redundanz bezwecken?
Es reicht doch, im Eingabeblatt nach "Fertig" zu filtern, um einen Überblick zu erhalten.
Wenn schon Ereignismakro (Worksheet_Change), dann wäre es doch sinnvoller, den "fertigen" Datensatz ins andere Blatt zu verschieben statt zu kopieren.
(ausschneiden, einfügen, Ursprungszeile löschen)

Gruß Ralf
Anzeige
AW: VBA-Makro starten durch Dropdown Textauswahl in Zelle
14.12.2025 18:51:13
ralf_b
den code kopierst du in den das Codemodul deines Arbeitsblattes der Name des Arbeitsblattes ist im Beispiel Tabelle1, und das dropdown befindet sich in zelle d4 
Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Intersect(Target, Range("D4")) Is Nothing Then

     If Target.Value = "Fertig" Then

     Dim Startzeit

     Startzeit = Now + TimeValue("00:00:02")

     Application.OnTime EarliestTime:=Startzeit, Procedure:="Tabelle1.ZielMakro", Schedule:=True

    End If

 End If

End Sub



Sub ZielMakro()

    MsgBox "Makro wurde nach 2 Sekunden gestartet"

End Sub

Anzeige
AW: VBA-Makro starten durch Dropdown Textauswahl in Zelle
14.12.2025 19:08:11
Alibaba
Herzlichen Dank für die Schnelle Hilfe!
AW: VBA-Makro starten durch Dropdown Textauswahl in Zelle
14.12.2025 21:08:33
Alibaba
Hallo zusammen,

ich bitte nochmals um Unterstützung.
Ich schaffe es nicht, das Makro zum laufen zu bringen.
Mein Makroname ist "Erledigte_Aufgaben".
Wenn ich das Makroscript von euch einfüge (siehe unten), dann kommt folgende Fehlermeldung: Fehler beim Kompilieren - End Sub erwartet.
Ich habe auch ein Bild davon hochgeladen.
Userbild

Was mache ich falsch?
Wie soll ich das Makroscript richtig einfügen?


Sub Erledigte_Aufgaben()

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge = 1 And .Column = 5 And .Value = "Fertig" Then
.EntireRow.Copy _
Worksheets("Erledigte Aufgaben").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End If
End With


If Not Intersect(Target, Range("E4")) Is Nothing Then
If Target.Value = "Fertig" Then
Dim Startzeit
Startzeit = Now + TimeValue("00:00:02")
Application.OnTime EarliestTime:=Startzeit, Procedure:="Aufgaben.ZielMakro", Schedule:=True
End If
End If
End Sub
Anzeige
AW: VBA-Makro starten durch Dropdown Textauswahl in Zelle
15.12.2025 16:45:49
Piet
Hallo Alibaber

das Makro gehört NICHT in ein Modul, sondern in das Sheet wo es laufen soll!
Diese Zeile musst du löschen, sonst klappt es nicht: - Sub Erledigte_Aufgaben()

Nach einem Sub Text muss zum Schluß IMMER ein "End Sub" folgen!
Zwei Sub -direkt hintereinander- das versteht Excel nicht! Fehlermeldung!!

Bei Makros in Modulen kannst du den Sub Text frei wählen, z.B. "Sub Erledigte_Aufgaben()"
Makros die in Sheets laufen sind immer Private Makros mit der definierten - Sheet Funktion!
Das sind Grundregeln in VBA, die man halt erlernen muss. Viel Spass beim lernen.

mfg Piet
Anzeige
AW: VBA-Makro starten durch Dropdown Textauswahl in Zelle
16.12.2025 12:54:56
Alibaba
Herzlichen Dank Piet!
Jetzt läuft es :)
AW: VBA-Makro starten durch Dropdown Textauswahl in Zelle
20.12.2025 20:43:52
Alibaba
Hallo Piet,

kannst du mir bitte nochmals Helfen? Mit meinen VBA Kenntnissen (VBA Aufzeichnen) bringe ich es nicht hin.
Danke im Voraus!

Im ganz unten stehenden Code sollten bitte noch 2 Änderungen gemacht werden:
1) Bitte aus Register "Aufgaben" nicht die ganze Zeile kopieren sondern nur von Spalte A bis Spalte L.
2) Bitte nur die Werte und Formate ins Register "Erledigte Aufgaben"einfügen.

Und ich bekomme folgende VBA Fehlermeldung siehe lt. Bild, wenn ich eine Zeile im Register "Aufgaben" lösche (für Aufgaben die nicht mehr benötigt werden)
Userbild

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge = 1 And .Column = 4 And .Value = "Erledigt" Then
.EntireRow.Copy _
Worksheets("Erledigte Aufgaben").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End If
End With
End Sub

LG Albert
Anzeige
AW: VBA-Makro starten durch Dropdown Textauswahl in Zelle
21.12.2025 11:24:18
GerdL
Moin Albert! 

Private Sub Worksheet_Change(ByVal Target As Range)



    Dim Rng As Range



    On Error GoTo fin

    Set Rng = Worksheets("Erledigte Aufgaben").Cells(Rows.Count, 1).End(xlUp).Offset(1)

    

    With Target

        If .CountLarge = 1 And .Column = 4 And LCase(.Cells(1).Value) = "erledigt" Then

            .EntireRow.Range("A1:L1").Copy

            Rng.PasteSpecial Paste:=xlPasteFormats

            Rng.PasteSpecial Paste:=xlPasteValues

            Application.CutCopyMode = False

        End If

    End With

fin:     Application.CutCopyMode = True



End Sub

Gruß Gerd
Anzeige
AW: VBA-Makro starten durch Dropdown Textauswahl in Zelle
21.12.2025 13:41:57
Alibaba
Super danke Gerd, jetzt funktioniert alles wie gewollt!
Danke auch an alle anderen die mir geholfen haben und Frohe Weihnachte an das ganze Forum.
LG Albert
AW: VBA-Makro starten durch Dropdown Textauswahl in Zelle
14.12.2025 18:47:15
Alibaba
Hallo Ralf,

danke für die Rückmeldung!

Kopieren deshalb, weil im weiteren Verlauf des Makros die kopierte Zeile im Ursprungsblatt bearbeitet wird z.B. für wiederkehrende Aufgaben wird der neue Fälligkeitstermin ermittelt und andere Zellen bearbeitet.
Die kopierte Zeile im Arbeitsblatt "Erledigte Aufgaben" dient nur zur Archivierung wann und von wem diese Aufgabe erledigt wurde.

LG Alibaba
Anzeige
AW: VBA-Makro starten durch Dropdown Textauswahl in Zelle
14.12.2025 18:59:44
RPP63
Als Beispiel ohne (für mich wichtige) weitere Prüfungen.
Die Pause habe ich weggelassen. 
Private Sub Worksheet_Change(ByVal Target As Range)

With Target

  If .CountLarge = 1 And .Column = 4 And .Value = "Fertig" Then

    .EntireRow.Copy _

      Worksheets("Erledigte Aufgaben").Cells(Rows.Count, 1).End(xlUp).Offset(1)

  End If

End With

End Sub
Anzeige

Forumthreads zu verwandten Themen

Gültigkeit in Abhängigkeit von Eigenschaft
Eigenschaft

Hallo Forum,
ich hab' da mal ein Problem, zu dem mir keine Lösung einfällt:
Ich möchte eine Gültigkeitsliste in Abhängigkeit einer Eigenschaft meiner Gültigkeitswerte erstellen.
Damit meine ich folgendes:
Ich habe eine Liste mit einem Schlüsselbegriff und einer Eigenschaft.
B...
05.08.2005 17:49:14
Thread-ID: 648383
5 Beiträge
Absturz VBA, jedoch nicht beim Durchsteppen
Michael

Ich habe eine Tabelle mit Zelle X. In dieser Zelle kann ich eine von 90 Optionen auswählen (Gültigkeit: Liste) und entsprechend werden dann einige weitere Zellen und ein Diagramm mit Werten befüllt.
Ich möchte nun der Einfachheit halber ein Skript erstellen, dass sequentiell alle 90 Optione...
04.12.2018 18:35:09
Thread-ID: 1661221
1 Beitrag
dynamische Auswahlliste
Eike

Hallo zusammen,
ich möchte ohne VBA eine Auswahlliste erstellen, deren Werte in Abhängigkeit einer anderen Auswahl stehen.
So z.Bsp.
In einer Dropdownauswahl wird ein Wert ausgesucht und in eine Zelle zurückgeschrieben. Diesen Wert1 möchte ich dann nutzen um in einer neuen Auswahl e...
03.05.2008 17:34:26
Thread-ID: 974292
1 Beitrag
Anzeige
Auswahlliste - Dropdownliste
Stefan

Hallo,
wie kann ich ganz Simpel eine Auswahlliste erstellen.
Ich möchte in einer Zelle, die Werte 0-100 (in 10er Schritten) per Dropdown Menu auswählen können. Denn Wert denn ich dann auswähle, muß ich aber für Berechnungen weiterverwenden können. Läßt sich das ganz einfach realisieren ?...
01.07.2005 06:44:58
Thread-ID: 631438
1 Beitrag
Fehler 13 bei Ausführen von Worksheet_Change
Andreas
Hallo werte Forummitglieder!

Als blutiger Anfänger in VBA habe ich mich mit einigen Web Tipps daran getraut, in VBA vordefinierte Filter für eine recht umfangreiche Liste zu erstellen. Um zwischen den diversen Filtereinstellungen auszuwählen, arbeite ich mit der Funktion "Datenüberprüfung",...
22.08.2025 17:43:28
Thread-ID: 2017639
5 Beiträge
Übersicht über Data Validation Formeln
Patrik
Hallo zusammen

Ich verwende oft Dropdown-Listen, welche via Data Validation und eingefügten Verweis auf einen Bereich (bzw. Formel mit Verweis) erzeugt werden. Nun möchte ich eine Überisicht erstellen in neuem Sheet, welche mir von jeder Zelle, wo eine dropdown-Liste verwendet wird, die zug...
25.12.2003 13:34:14
Thread-ID: 355916
3 Beiträge
Gültigkeitsprüfung mit RowsCount
TiloT

Hallo zusammen,
ich möchte per VBA einen Dropdown einer Liste in Zelle F14 erstellen.
Formula1:="=LISTE!$A$1:$A$3500" alles iO
Ich brauche aber sowas wie
Formula1:="=LISTE!$A$1:$A$ & loletzte"
Wie geht das?
Danke mal für Eure Hilfe
Gruß
Tilo
Dim loletzte...
01.08.2017 19:07:02
Thread-ID: 1571902
3 Beiträge
Listenfeld ein-ausblenden mit Ausgabe
Tobias Hartych
Hallo zusammen,

ich komme bei meinem aktuellen Vorhaben leider nicht weiter.

Und zwar möchte ich eine Art Dropdown-Liste mit Mehrfachauswahl erstellen.

Dazu habe ich folgenden Code erstellt, bin leider ein absoluter Anfänger was VBA betrifft.

Ich möchte gern mit m...
25.10.2024 11:18:10
Thread-ID: 1994718
5 Beiträge
Anzeige
Zwischenergebnisse, Startzeilen, -spalten variabel
Dip

Guten Tag Allerseits,
Gerne würde ich eine Problemstellung im Forum einbringen, in der Hoffnung, jemand kennt die Lösung :-)
Im angehängten Excel File sieht man zwei Projekte.
Die von Hand eingegebenen Werte auf Stufe "Task" sollen auf Stufe "AP" summiert werden. Wiederum sollen dan...
29.10.2013 11:47:36
Thread-ID: 1336297
2 Beiträge
VBA 0 hinzufügen + Formatierung?
LeRayZ
Guten Morgen,
ich bin ein Neuling was VBA angeht, habe jedoch in den letzten Tagen etwas kleines zusammengestellt.
Ich versuche mal den Hintergrund zu erläutern.
Ich ziehe mir die Daten aus dem Blatt ,,RohdatenKontrolle".
In Schritt 1 vom Makro, kopiere ich mir nur die für mich relev...
22.07.2021 11:06:28
Thread-ID: 1840195
3 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum