Supportnet / Forum / Tabellenkalkulation

Moin, ich suche eine Möglichkeit, um durch einen Wert einer Zelle (123456), dass die komplette Zeile in ein anderes Blatt eingefügt und in dem alten Blatt gelöscht wird. Als Beispiel. Blatt 1, Zelle A1, Wert 123456 in den nachfolgenden Zellen der Zeile A weitere Daten dann Eintrag in Blatt 2 Zelle A1 123456 dann die automatische übernahme der restlichen Werte aus Zeile A des Blatt 1. Ich hoffe ich habe es verständlich erklärt und bedanke mich für die Hilfe. CS

Hi Chefchen,

kopiere nachfolgenden VBA Code in das VBA Projekt der Tabelle, in der Du die Zahlen eingeben möchtest und in das die Daten dann kopiert werden sollen.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim letzte_Zeile As Long, Wiederholungen As Long
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
letzte_Zeile = Sheets("Tabelle1").Range("A65536").End(xlUp).Row
If Target.Column = 1 Then
For Wiederholungen = 1 To letzte_Zeile
If Target.Cells = Sheets("Tabelle1").Cells(Wiederholungen, 1) Then
Sheets("Tabelle1").Rows(Wiederholungen).Copy
Cells(Target.Row, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Tabelle1").Rows(Wiederholungen).Delete
End If
Next
End If
Application.EnableEvents = True
End Sub

Bei obigen Code wird nach Eingabe der Zahl in dem Blatt mit dem Blattnamen "Tabelle1" nach einer Übereinstimmung gesucht. Wenn gefunden, dann wird die gesamte Zeile kopiert, in das aktive Blatt eingefügt und dann in Blatt "Tabelle1" gelöscht. Sollte der Blattname aus dem die Daten kopiert werden sollen anders lauten als "Tabelle1", dann musst Du überall in dem Code, in dem der Name "Tabelle1" vorkommt, Deinen Blattnamen eintragen. Der Name muss zwischen den beiden Anführungsstrichen ("") stehen.

Ich hoffe, Du kommst klar. Du solltest den VBA Code zunächst in einer Kopie Deiner Datei testen, damit Deine Daten nicht , sofern der VBA Code nicht das macht, was Du Dir vorgestellt hast, verloren gehen.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo,

ich bedanke mich nochmals und werde es ausprobieren. Ich melde mich nochmal, egal ob es funktioniert oder nicht.

CS

Hallo,

habe alles so gemacht, hatte aber leider keinen Erfolg (Tabellenname hatte ich geändert). Passiert leider nichts. Danke trotzdem

CS

• Excel VBA
• Daten vergleichen und kopieren
• Werte per Makro kopieren
• zeilen alphabetisch ordnen (automatisch)
• Zeilen in ein anderes Blatt kopieren und gleichzeitig sortieren