Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - mit BeforeDoubleClick Zelle kopieren

VBA - mit BeforeDoubleClick Zelle kopieren
13.11.2005 14:23:49
Tobi
Hallo zusammen.
Ich möchte gerne innerhalb einer Spalte, per Doppelklick auf eine Zelle, den Wert der sich darüber befindenden Zelle übernehmen.
Als Beispiel:
Doppelklick auf A5 Werteübernahme von A4,
Doppelklick auf A6 Werteübernahme von A5,
Doppelklick auf A20 Werteübernahme von A19,
...usw.
Ist so etwas über VBA mit _BeforeDoubleClick oder evtl. auch _SelectionChange zu realisieren?
Meine Kenntnisse reichen leider nicht aus, um dies Umzusetzen.
Bitte helft mir weiter. Danke!
Grüße
Tobi

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - mit BeforeDoubleClick Zelle kopieren
13.11.2005 15:11:58
Rainer
Hallo,
mal so als Ansatz:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Or Target.Row = 1 Then Exit Sub 'nur bei Doppelklick in Spalte A
Cells(1, 4) = ActiveCell.Offset(-1, 0) 'übernehme den darüberliegenden Wert in Zelle D1
End Sub

Gruß Rainer
AW: VBA - mit BeforeDoubleClick Zelle kopieren
13.11.2005 16:28:49
Tobi
Hallo Rainer.
Vielen Dank für deine Antwort.
Dein Ansatz funktioniert schon prima.
Allerdings wird der Wert immer in D4 eingetragen.
Wie muss man den Code ändern, damit die Werteübernahme jeweils direkt in die doppelt-geklickte Zelle erfolgt.
"Cells(1, 4)" auf "ActiveCell" setzen, so in etwa. Ist das möglich? Mir fehlt leider das Wissen um die korrekte Syntax.
Grüße
Tobi
Anzeige
AW: VBA - mit BeforeDoubleClick Zelle kopieren
13.11.2005 17:11:53
Tobi
Mit etwas probieren habe ich die notwendige Syntax herausgefunden.
Cell (1, 4) muss durch ActiveCell.Value ersetzt werden.
Der vollständige Code lautet dann:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Or Target.Row = 1 Then Exit Sub 'nur bei Doppelklick in Spalte A
ActiveCell.Value = ActiveCell.Offset(-1, 0) 'übernehme den darüberliegenden Wert in aktive Zelle
End Sub

Nochmals Danke an Rainer für den hilfreichen Ansatz.
Grüße
Tobi
Gemeinsam geschafft :-). Nichts zu danken. o. T.
13.11.2005 17:45:19
Rainer

308 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Anzeige
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge
Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Makro: Datei (feste Werte) kopieren und versenden
Niko

Hallo zusammen,
bin absoluter VBA-Neuling habe jedocg per google unten stehendes Makro gefunden.
Es hilft mir jedoch nur zum Teil. Ich möchte eine Arbeismappe (welche mehrere Sheets enthält) und mit vielen Verknüpfungen befüllt ist als Versanddatei ohne diese Verknüpfungen erstellen un...
03.06.2009 12:27:02
Thread-ID: 1078831
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 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
16
1
5
2
12
2
6
4
2
2
9
3
1
8
2
2
14
4
1
11
10
19
4
3
8