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

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

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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige