Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Doppel-Klick Wert kopieren

Forumthread: Mit Doppel-Klick Wert kopieren

Mit Doppel-Klick Wert kopieren
15.08.2005 22:32:43
Josef
Guten Tag zusammen,
habe in Tabelle1 von A1:H20 Zahlen stehen, ohne Formeln. Nun möchte ich mit einem "Doppel-Klick" auf eine bestimmte Zahl in Tabelle1, dass diese in Tabelle2 kopiert und transponiert wird. Bei zehn Zahlen, ist eine Reihe in Tabelle2 voll. Dann soll immer eine Zeile überschlagen werden und wieder kopiert und transponiert werden. Es sind ca. 100 Werte in Tabelle1.
(Also, in Tabelle2 ab B3 bis K3, nächste Zeile B5 bis K5, usw.)
kann mir bitte jemand dabei helfen?
Danke im voraus
Gruss
Josef
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Mit Doppel-Klick Wert kopieren
15.08.2005 23:03:32
Reinhard
Hi Josef, 

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim zei As Long, spa As Integer
With Worksheets("Tabelle2")
If .Range("B3").Value = "" Then
.Range("B3").Value = Target.Value
Else
zei = .Range("b65536").End(xlUp).Row
spa = .Cells(zei, 256).End(xlToLeft).Column + 1
If spa = 12 Then
spa = 2
zei = zei + 1
End If
.Cells(zei, spa).Value = Target.Value
End If
End With
Cancel = True
End Sub

Gruß
Reinhard
Anzeige
AW: Reinhard, funktioniert einwandfrei!
15.08.2005 23:26:18
Josef
Hallo Reinhard,
ich sitze hier mit hängenden Augen und Du haust mir eine komplette Lösung um die Ohren.
Ist das denn noch normal?
Reinhard, ich danke Dir sehr.
Gute Nacht
Josef
;

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