Herbers Excel-Forum - das Archiv
Aktuelle Zeilen Kopieren und Einfügen
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
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.xlsGruß
CS
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
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.
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
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.
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
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
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