Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
968to972
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
968to972
968to972
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile übertragen wenn in Spalte ein x

Zeile übertragen wenn in Spalte ein x
17.04.2008 09:49:47
Berchtold
Hallo zusammen
Sicher weiss jemand von euch wie ich das anstellen muss. Ich habe in Tabelle1 diverse Einträge in den Spalten A-M und Spalte C ist leer. Wenn ich nun da in Spalte C ein x reinschreibe sollte es mir automatisch die entsprechende Zeile auf Tabelle2 an den Schluss kopieren und auf Tabelle1 die Zeile auch löschen.
Besten Dank
Roger

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile übertragen wenn in Spalte ein x
17.04.2008 10:53:38
Berchtold
Super
Besten Dank das klappt einwandfrei. Ist doch immer wieder schön hier so gute hilfe zu erhalten.
Gruss
Roger

AW: Zeile übertragen wenn in Spalte ein x
17.04.2008 11:03:00
Armin
Hallo Reiner,
es geht auch noch kürzer:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim maxZeile As Long
maxZeile = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
Application.EnableEvents = False
With Target
If .Row > 2 And .Column = 3 And UCase(.Value) = "X" Then
Range("A1:M1").Offset(.Row - 1, 0).Copy Destination:=Worksheets("Tabelle2").Range("A1"). _
Offset(maxZeile, 0)
Range("A1:M1").Offset(.Row - 1, 0).EntireRow.Delete
End If
End With
Application.EnableEvents = True
End Sub


Gruß Armin

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige