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

Makro abändern

Makro abändern
20.02.2008 18:29:38
Josef_T
Hallo zusammen,
habe ein Problem mit der Zeilenbestimmung, wohin die erste Zeile kopiert werden soll.
Hier das Muster: https://www.herber.de/bbs/user/50059.xls
Habe schon (fast) alles mögliche versucht, aber es klappt einfach nicht.
Kann mir bitte jemand behilflich sein?
Danke schon mal
Gruß Josef

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

Betreff
Datum
Anwender
Anzeige
AW: Makro abändern
20.02.2008 18:40:00
Original
Hi,
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wks As Worksheet, lngRow As Long, lngR As Long
If Target.Count > 1 Then Exit Sub
If Target.Column  1 Then Exit Sub
Set wks = Worksheets("Tabelle1")
lngRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
If wks.[a7] = "" Then lngRow = 7
lngR = Target.Row
Range(Cells(lngR, 1), Cells(lngR, 8)).Copy wks.Cells(lngRow, 1)
Cancel = True
End Sub


mfg Kurt

AW: Makro abändern
20.02.2008 18:55:00
Josef_T
Hallo Kurt,
Ja, genau so sollte das Makro arbeiten.
Danke sehr für Deine Arbeit.
Gruß Josef
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige