Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Aktuelle Zeilen Kopieren und Einfügen"
Aktuellen Dateipfad aktualisieren Arbeitsmappe mit dem Namen des aktuellen Datums öffnen
Addition bis zum aktuellen Datum Aktueller Arbeitsblattname in Formel
Zur Zelle mit aktuellem Datum scrollen Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen
Bei Eintrag in Spalte A aktuelle Zeile kopieren Über Schaltfläche neues Blatt mit aktuellem Datum einfügen
Aktuelle Geburtstage beim Öffnen der Arbeitsmappe anzeigen Daten der aktuellen Zeile im Kontextmenü anzeigen