Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile transferieren

Forumthread: Zeile transferieren

Zeile transferieren
15.03.2015 13:30:33
Felix
Hallo
bin noch VBA Anfänger.
Ich suche folgende Lösung.
Zwei Tabellen (Tabelle1, Tabelle2)
Wenn ich in Tabelle1 in der Spalte A auf einen Wert doppelklicke,
so soll Excel die betreffende Zeile ausschneiden und
in Tabelle2 zwischen Zeile2 und Zeile3 einfügen.
Danke für eine Lösung.
Felix
Ich habe im Archiv gesucht, aber etwas ähnliches fand ich nicht.

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile transferieren
15.03.2015 14:52:36
Tobias
Hallo Felix,
Probiers mal damit:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim ZeilenNummer As Integer
ZeilenNummer = Target.Row
Rows(ZeilenNummer).Copy
With Sheets(2)
.Rows(3).Insert Shift:=xlDown
.Paste .Range("A3")
End With
Rows(ZeilenNummer).Delete Shift:=xlUp
End Sub
Einfach in das Codemodul der Tabelle 1 einfügen
Gruß
Tobias

Anzeige
noch eine Variante
15.03.2015 15:09:53
Erich
Hi Felix,
hier noch eine Variante: 

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Sheets(2)
.Rows(3).Insert
Target.EntireRow.Copy .Cells(3, 1)
End With
Target.EntireRow.Delete
Cancel = True
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige