Aktuelle Zeilen Kopieren und Einfügen

Bild

Betrifft: Aktuelle Zeilen Kopieren und Einfügen von: seadog2000
Geschrieben am: 10.04.2005 13:58:31

Hallo Leute,

Ich führe eine Tabelle mit Tagesereignissen.
In Spalte B kommen immer die Ereignisse(Textform),direkt daneben in Spalte C kommt immer das aktuelle Datum.
Nun zu meinem Problem.
Ich würde gerne ein Makro über einen Button(beschriftet mit"Nächster Tag")starten,das immer die letzte aktuelle Zeile kopiert und in die nächste freie Zeile einfügt und dabei in Spalte C das Datum aktualisiert.

Gruß Seadog2000

Bild


Betrifft: AW: Aktuelle Zeilen Kopieren und Einfügen von: Ceyser Soze
Geschrieben am: 10.04.2005 18:17:23

Hi Seadog,
hier ist eine beispielmappe: https://www.herber.de/bbs/user/20946.xls
Gruß
CS


Bild


Betrifft: AW: Aktuelle Zeilen Kopieren und Einfügen von: seadog2000
Geschrieben am: 10.04.2005 18:48:06

Danke CS

Funktioniert supi :-)
Frage noch.
Funktioniert das auch mit mehreren Zellen in der Spalte B ?

Beispiel:
Spalte B Spalte C
1.Ereignis Datum Vortag
2.Ereignis
3.Ereignis
Ausgabe:
Spalte B Spalte C
1.Ereignis Datum Vortag
2.Ereignis
3.Ereignis
1.Ereignis aktuelles Datum
2.Ereignis
3.Ereignis

Gruß Seadog


Bild


Betrifft: AW: Aktuelle Zeilen Kopieren und Einfügen von: Ceyser Soze
Geschrieben am: 10.04.2005 19:17:52

...klar, dazu muss man den code vom button entsprechend ändern.


Bild


Betrifft: AW: Aktuelle Zeilen Kopieren und Einfügen von: seadog2000
Geschrieben am: 10.04.2005 19:31:07

Wie würde denn das aussehen ?

Sorry ,daß ich frage.Bin noch Einsteiger.

Gruß Seadog


Bild


Betrifft: AW: Aktuelle Zeilen Kopieren und Einfügen von: Ceyser Soze
Geschrieben am: 10.04.2005 19:36:08

dazu braucht man einige infos. wird immmer die gleich anzahl zellen kopiert, oder nicht.
befinden sich noch andere daten im blatt usw... eine beispielmappe wäre auch nicht übel.


Bild


Betrifft: AW: Aktuelle Zeilen Kopieren und Einfügen von: seadog2000
Geschrieben am: 10.04.2005 20:09:38

Anzahl der Zellen Ereignis kann variabel sein jedoch ein zugeordnetes Datum (spalte C)
keine weiteren Daten mehr im Dokument


Bild


Betrifft: AW: Aktuelle Zeilen Kopieren und Einfügen von: seadog2000
Geschrieben am: 10.04.2005 20:30:56


Hier das Beispiel:
https://www.herber.de/bbs/user/20951.xls

Sorry habs irgendwie nicht gecheckt wie man uploadet.

Gruß Seadog


Bild


Betrifft: AW: Aktuelle Zeilen Kopieren und Einfügen von: Ceyser Soze
Geschrieben am: 11.04.2005 19:39:58

Hi,
tausche den Code des Button gegen diesen aus:

      
Sub nächsterTag()
Dim rngDest As Range
Dim rngSel As Range
On Error Resume Next
Set rngSel = Selection
Set rngDest = ActiveCell.End(xlDown).Offset(1, 0)
If Not rngDest Is Nothing Then
    rngSel.Copy rngDest
    rngDest.Offset(0, 1) = Date
Else
    
Set rngDest = ActiveCell.Offset(1, 0)
    ActiveCell.Copy rngDest
    rngDest.Offset(0, 1) = Date
End If
End Sub 

     Code eingefügt mit Syntaxhighlighter 3.0

Gruß
CS


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Aktuelle Zeilen Kopieren und Einfügen"