erste leere Zeile

Forumthread: erste leere Zeile

erste leere Zeile

23.04.2006 09:25:06

Herbert

Hallo!
Ich habe in Spalte B verschiedene Datum stehen.
Ich bräuchte einen Code , der mir wenn ich zum Beispiel in B4 stehe das Datum durch das Aktuelle ersetzt und die gesamte Zeile ausschneidet und in die erste leere Zeile wieder einfügt.
Ich hoffe jemand hat eine Lösung dafür!
mfG
Herbert

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: erste leere Zeile

23.04.2006 10:47:27

Gerd
AW: erste leere Zeile

23.04.2006 11:06:35

Peter
AW: erste leere Zeile

23.04.2006 11:38:15

Herbert
AW: erste leere Zeile

23.04.2006 13:14:02

Peter
AW: erste leere Zeile

23.04.2006 13:21:50

Herbert
AW: erste leere Zeile

23.04.2006 13:28:59

Leo
AW: erste leere Zeile

23.04.2006 13:33:37

Herbert

AW: erste leere Zeile

23.04.2006 10:47:27

Gerd

Hallo Herbert,
möchtest Du Code, der "anspringt", wenn Du z.B. in B4 das aktuelle/heutige Datum
manuell einträgst ?
Oder:
Soll auch per Code dort das aktuelle Datum eingetragen werden ?
Falls ja, bei welcher Konstellation in welcher Zelle in Spalte B?
Nächste leere Zeile: Du hast innerhalb des gefüllten Bereichs leere Zeilen/Zellen?
bzw. soll im Beispielsfall die Zeile 4 an den Schluss gestellt werden ?
Gruß
Gerd

AW: erste leere Zeile

23.04.2006 11:06:35

Peter

Hallo Herbert,
mit dem untenstehenden Makro im Tabellenblatt (rechtsklick auf den Tabelleblatt Reiter, dann Code einfügen) sollte es gehen.


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lFreie  As Long
If Not Intersect(Target, [B1:B300]) Is Nothing Then
With Target
Target.Value = Date
lFreie = Range("B65536").End(xlUp).Row + 1
Rows(Target.Row & ":" & Target.Row).Copy _
Destination:=Rows(lFreie & ":" & lFreie)
End With
End If
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: erste leere Zeile

23.04.2006 11:38:15

Herbert

Hallo!
Das funktioniert schon mal sehr gut.
Nur wird die Zeile kopiert anstatt ausgeschnitten.
Kann man das noch irgendwie abänderen?
Gruß
Herbert

AW: erste leere Zeile

23.04.2006 13:14:02

Peter

Hallo Herbert,
dann so:
'
' das nachfolgende Makro fügt nach Doppelklick auf eine Zelle in Spalte B
' (von B1 - B300) das aktuelle Datum in die Zelle ein und kopiert die
' gesamte Zeile in die erste freie Zeile des Tabellenblattes.
'


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lFreieZ  As Long
If Not Intersect(Target, [B1:B300]) Is Nothing Then
With Target
Target.Value = Date
lFreieZ = Range("B65536").End(xlUp).Row + 1
Rows(Target.Row & ":" & Target.Row).Cut _
Destination:=Rows(lFreieZ & ":" & lFreieZ)
End With
End If
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: erste leere Zeile

23.04.2006 13:21:50

Herbert

Danke!
Das habe ich in der Zwischenzeit schon selbst gelöst.
Aber mein Problem ist mir bleiben dann die leeren Zeilen stehen.
Ich würde es so brauchen wie beim Kontex- Menü(Ausschneiden+Ausgeschnittene Zellen einfügen)

AW: erste leere Zeile

23.04.2006 13:28:59

Leo

Hi,
Option Explicit


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lz As Long
If Not Intersect(Target, [B1:B300]) Is Nothing Then
Target.Value = Date
lz = Cells(Rows.Count, 2).End(xlUp).Row + 1
Rows(Target.Row).Copy Rows(lz)
Rows(Target.Row).Delete
End If
End Sub

mfg Leo

AW: erste leere Zeile

23.04.2006 13:33:37

Herbert

Danke für Eure Hilfe!
Jetzt funktioniert´s nach Wunsch.
mfG
Herbert

Beliebteste Forumthreads (12 Monate)

Forumthread: erste leere Zeile

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread