Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro automatisch bei neuer Zeile ausführen

Makro automatisch bei neuer Zeile ausführen
30.04.2019 12:56:44
AxelF1977
Hallo zusammen,
ich hoffe Ihr könnt mir helfen. Ich habe ein wunderbares Makro, welches aus bestimmten spalten, Wertem in die Zelle rechts daneben kopiert. funktioniert wunderbar.
Nun soll dieses Makro automatisch beim Einfügen einer neuen Zeile ausgeführt werden. Aber nur dann. Ich bekomme es leider nicht hin.
Habt Ihr eine Idee? Die Tabelle ist als Tabelle formatiert, evtl. ist die Info noch wichtig 
 _
Sub Leer()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Tabelle1")        'Tabellenname anpassen
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, "D") = "" Then .Cells(i, "D") = .Cells(i, "C")
If .Cells(i, "F") = "" Then .Cells(i, "F") = .Cells(i, "E")
If .Cells(i, "R") = "" Then .Cells(i, "R") = .Cells(i, "G")
If .Cells(i, "S") = "" Then .Cells(i, "S") = .Cells(i, "H")
If .Cells(i, "J") = "" Then .Cells(i, "J") = .Cells(i, "I")
If .Cells(i, "L") = "" Then .Cells(i, "L") = .Cells(i, "K")
If .Cells(i, "T") = "" Then .Cells(i, "T") = .Cells(i, "M")
If .Cells(i, "U") = "" Then .Cells(i, "U") = .Cells(i, "N")
If .Cells(i, "AC") = "" Then .Cells(i, "AC") = .Cells(i, "AB")
Next i
End With
Application.ScreenUpdating = True
End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro automatisch bei neuer Zeile ausführen
30.04.2019 13:10:27
Daniel
Halo Axel,
ins Tabellenblatt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Target.EntireRow.Address Then
*Dein Code*
End If
End Sub
Löst allerdings auch aus, wenn du eine ganz Zeile entfernst. Ist das ein Problem?
Gruß
Daniel
AW: Makro automatisch bei neuer Zeile ausführen
30.04.2019 15:40:46
AxelF1977
Hallo Daniel,
danke für die Antwort. Danke an meine beiden lieben Kollegen, die in meinem Namen hier die Anfrage gestellt haben (und mich in Erklärungsnot in einem anderen Forum gebracht haben).
Das Makro soll immer nur für die neue Zeile ausgeführt werden, sonst arbeitet sich die Tabelle kaputt. Ich habe es soweit herausgefunden, das ich das eigentliche Macro per Call aufrufe. Aktuell tut es das aber für das ganze Tabellenblatt
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Call Leer
End Sub

Anzeige
AW: Makro automatisch bei neuer Zeile ausführen
30.04.2019 15:46:25
Daniel
Du brauchst es nicht per Call aufzurufen, wenn du den Code reinschreibst macht es keinen Unterschied und ist übersichtlicher (meiner Meinung nach).
Wenn du nur die aktuelle Zeile mit dem Code belegen möchtest, ist es ja viel einfacher. Dann ändere deinen Code so:
 With Sheets("Tabelle1")        'Tabellenname anpassen
If .Cells(Target.Row, "D") = "" Then .Cells(Target.Row, "D") = .Cells(Target.Row, "C")
End With
Das muss dann aber natürlich ins Arbeitsblatt in den Worksheet_Change Code (da, wo bei mir *Dein Code* steht).
Gruß
Daniel
Anzeige
AW: Makro automatisch bei neuer Zeile ausführen
30.04.2019 16:44:38
AxelF1977
Ach, ich finde das mit dem call gar nicht übel.
aber gehen tut es nicht, was habe ich denn falsch gemacht?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Target.EntireRow.Address Then
Call Leer
End If
End Sub
Sub Leer()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Tabelle1")        'Tabellenname anpassen
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Target.Row, "D") = "" Then .Cells(Target.Row, "D") = .Cells(Target.Row, "C")
If .Cells(Target.Row, "F") = "" Then .Cells(Target.Row, "F") = .Cells(Target.Row, "E")
If .Cells(Target.Row, "R") = "" Then .Cells(Target.Row, "R") = .Cells(Target.Row, "G")
If .Cells(Target.Row, "S") = "" Then .Cells(Target.Row, "S") = .Cells(Target.Row, "H")
If .Cells(Target.Row, "J") = "" Then .Cells(Target.Row, "J") = .Cells(Target.Row, "I")
If .Cells(Target.Row, "L") = "" Then .Cells(Target.Row, "L") = .Cells(Target.Row, "K")
If .Cells(Target.Row, "T") = "" Then .Cells(Target.Row, "T") = .Cells(Target.Row, "M")
If .Cells(Target.Row, "U") = "" Then .Cells(Target.Row, "U") = .Cells(Target.Row, "N")
If .Cells(Target.Row, "AC") = "" Then .Cells(Target.Row, "AC") = .Cells(Target.Row, "AB" _
)
Next i
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Makro automatisch bei neuer Zeile ausführen
30.04.2019 22:32:34
AxelF1977
Ich habe es jetzt seit Stunden probiert, leider komme ich zu keinem Ergebnis.
Entweder das Makro füllt die ganze Tabelle, oder nichts. Was mache ich falsch. ich hoffe einer der Profis hier hat eine Idee und Hilfe für mich. Ich wäre wirklich dankbar dafür.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Target.EntireRow.Address Then
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Tabelle1")        'Tabellenname anpassen
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, "D") = "" Then .Cells(i, "D") = .Cells(i, "C")
If .Cells(i, "F") = "" Then .Cells(i, "F") = .Cells(i, "E")
If .Cells(i, "R") = "" Then .Cells(i, "R") = .Cells(i, "G")
If .Cells(i, "S") = "" Then .Cells(i, "S") = .Cells(i, "H")
If .Cells(i, "J") = "" Then .Cells(i, "J") = .Cells(i, "I")
If .Cells(i, "L") = "" Then .Cells(i, "L") = .Cells(i, "K")
If .Cells(i, "T") = "" Then .Cells(i, "T") = .Cells(i, "M")
If .Cells(i, "U") = "" Then .Cells(i, "U") = .Cells(i, "N")
If .Cells(i, "AC") = "" Then .Cells(i, "AC") = .Cells(i, "AB")
Next i
End With
Application.ScreenUpdating = True
End If
End Sub
Danke
Anzeige
AW: Makro automatisch bei neuer Zeile ausführen
30.04.2019 22:36:30
AxelF1977
Ich habe gerade gesehen, wenn ich die letzte Zeile lösche, dann füllt er mit folgerndem Code die verbleibenden Zellen richtig aus. Merkwürdig.
Bei neu eingefügten Zellen macht der Code nichts
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Target.Address = Target.EntireRow.Address Then
Application.ScreenUpdating = False
With Sheets("Tabelle1")        'Tabellenname anpassen
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, "D") = "" Then .Cells(i, "D") = .Cells(i, "C")
If .Cells(i, "F") = "" Then .Cells(i, "F") = .Cells(i, "E")
If .Cells(i, "R") = "" Then .Cells(i, "R") = .Cells(i, "G")
If .Cells(i, "S") = "" Then .Cells(i, "S") = .Cells(i, "H")
If .Cells(i, "J") = "" Then .Cells(i, "J") = .Cells(i, "I")
If .Cells(i, "L") = "" Then .Cells(i, "L") = .Cells(i, "K")
If .Cells(i, "T") = "" Then .Cells(i, "T") = .Cells(i, "M")
If .Cells(i, "U") = "" Then .Cells(i, "U") = .Cells(i, "N")
If .Cells(i, "AC") = "" Then .Cells(i, "AC") = .Cells(i, "AB")
Next i
End With
Application.ScreenUpdating = True
End If
End Sub

Anzeige
AW: Makro automatisch bei neuer Zeile ausführen
30.04.2019 23:52:05
AxelF1977
Und wieder viel zu sehr um die Ecke gedacht, und Daniel hatte die Lösung gepostet.
Danke
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Tabelle1")        'Tabellenname anpassen
If .Cells(Target.Row, "D") = "" Then .Cells(Target.Row, "D") = .Cells(Target.Row, "C")
If .Cells(Target.Row, "F") = "" Then .Cells(Target.Row, "F") = .Cells(Target.Row, "E")
If .Cells(Target.Row, "R") = "" Then .Cells(Target.Row, "R") = .Cells(Target.Row, "G")
If .Cells(Target.Row, "S") = "" Then .Cells(Target.Row, "S") = .Cells(Target.Row, "H")
If .Cells(Target.Row, "J") = "" Then .Cells(Target.Row, "J") = .Cells(Target.Row, "I")
If .Cells(Target.Row, "L") = "" Then .Cells(Target.Row, "L") = .Cells(Target.Row, "K")
If .Cells(Target.Row, "T") = "" Then .Cells(Target.Row, "T") = .Cells(Target.Row, "M")
If .Cells(Target.Row, "U") = "" Then .Cells(Target.Row, "U") = .Cells(Target.Row, "N")
If .Cells(Target.Row, "AC") = "" Then .Cells(Target.Row, "AC") = .Cells(Target.Row, "AB" _
)
End With
End Sub

Anzeige

321 Forumthreads zu ähnlichen Themen

Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
Anzeige
Datei mit ungültigem Blattnamen per Makro öffnen
sile1234

Hallo liebe Herber Gemeinde,
ich habe eine *.xls Datei die von einem Programm exportiert wird. Diese möchte ich gerne mit Excel weiterbearbeiten und mit einem Makro dort diverse Informationen herausziehen. Leider wird der Blattname mit Zeichen exportiert mit denen Excel 2003 nichts anfangen...
07.08.2009 14:14:42
Thread-ID: 1094255
4 Beiträge
vba Code ausführen, bei Wechsel zu Excel
Karsten

Hallo und guten Abend,
ich wechsel von einer Internetseite mit der Tastenkombination Alt Tab zu Excel.
Bislang habe ich den vba Code einem Button zugewiesen und über diesen ausgeführt.
Nun soll dieser vba Code ausgeführt werden, wenn Excel den Focus erhält, wenn das entsprechende Ar...
14.08.2009 21:53:59
Thread-ID: 1096096
6 Beiträge
Anzeige
Blatt öffnen - Makro ausführen
Frank

Hallo Zusammen!
Meine Frage: Wenn ich z.B. in einer Arbeitsmappe Tabelle5 öffne soll ein Makro ausgeführt werden. Wie muss die Befehlzeile hierfür aussehen?
Ich hoffe, es weiß jemand Rat!!! Danke!!!
Gruß Frank H.
10.09.2009 09:49:43
Thread-ID: 1101676
3 Beiträge
Visio Datei öffnen und makro ausführen
Thomas

Hallo liebe VBA Gemeinde
Diesmal habe ich ein Schnittstellenproblem. Und zwar möchte ich aus Excel über einen Button eine Visio Datei aufrufen/öffnen (ist im gleichen Verzeichnis) und ein dort gespeichertes Makro ausführen (call Auswahl).
Das Makro benötigt die Variable "AKZ" die von E...
29.09.2009 12:14:45
Thread-ID: 1106163
4 Beiträge
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
Makro beim Blattwechsel ausführen ..
WalterK

Hallo,
den Code in der beigefügten Mappe habe ich aus diesem Forum, es wird das Blatt INHALT angelegt und dort werden dann alle Blätter aufgelistet. Funktioniert auch tadellos.
https://www.herber.de/bbs/user/65643.xls
Ich hätte es jetzt gerne so, dass der Code immer beim Öffnen der...
07.11.2009 02:34:11
Thread-ID: 1115131
4 Beiträge
Datei mit bestimmten Namen öffnen
Holla

Ich hab ein makro, dass auf Knopfdruck auffordert eine Datei zu öffnen.
Wie kann man es verhindern, dass die falsche ausgewählt wird. Die Namen der Dateien sind immer in folgender Form: XMLVJT2_JJJJ_Qx.xls , wobei JJJJ und X variabel sind.
Kann man da eine Fehlermeldung einbauen, wenn m...
13.11.2009 12:40:42
Thread-ID: 1116875
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
10
3
5
3
2
3
1
3
5
3
2
3
10
5
2
14
2
2
3
2
5
4
15
6