Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

2.Versuch Kopieren/Einfügen

Forumthread: 2.Versuch Kopieren/Einfügen

2.Versuch Kopieren/Einfügen
20.01.2004 16:39:00
Rainer Löffler
Mit einem CommandButten soll unter anderem ein Zellbereich (A55:I64) in ein Blatt
("Ereignisprotokoll") in der selben Arbeitsmappe kopiert werden.
Bedingung:
1. Wenn der Zellbereich leer ist - nicht kopieren
2. Das einfügen muß mit dem aktuellen Datum und Zeit versehen sein
3. Das Einfügen soll in chronologischer Reihenfolge erfolgen
und immer in Spalte "A" erfolgen
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2.Versuch Kopieren/Einfügen
20.01.2004 17:02:06
Beni
Hallo Rainer,
versuche es mit diesem Code.
Gruss Beni

For i = 55 To 64
If Cells(i, 1) <> "" Then
With Sheets("Ereignisprotokoll")
r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 9)).Copy Destination:=.Cells(r, 1)
End With
End If
Next i
Anzeige
AW: an Benni
20.01.2004 17:24:11
Rainer
Danke für schnelle Antwort,
läuft noch nicht
In der ersten Zeile "For i=55To64"
kommt Fehler beim Kompilieren Erwarte: To
Hab ich was falsch gemacht ?
AW: an Benni
20.01.2004 17:39:57
Beni
Hallo Rainer,
bei mir läuft problemlos, Du versuchen
Dim i As Long
voranzustellen.
Gruss Beni
AW: an Benni
20.01.2004 17:46:25
y
hi Rainer,
In der ersten Zeile "For i=55To64" <--for i = 55 to 64
leezeichen vergessen
cu Micha
Anzeige
AW: 2an Benni
20.01.2004 18:00:57
Rainer Löffler
Nächstes Problem ( ich weiß, das ich nerve)
Kompilierungsfehler bei
"r = .Cells...
AW: an cuMicha
20.01.2004 18:03:44
Rainer Löffler
Danke Micha
habs geffressen,lief aber trotzdem nicht
AW: an cuMicha
20.01.2004 18:10:10
y
hi Rainer,
ich gehe mal davon aus die zeilen
Dim i as Integer
Dim r as Integer
fehlen noch
cu Micha
p.s. cu ist eine verballhornung des englischen "see you"
Anzeige
AW: an cuMicha
21.01.2004 07:59:29
Rainer Löffler
Danke cuMicha,
leider kann ich es nicht mehr testen, da ich für 8 Tage weg bin.
Wenns klappt hast Du was gut.
Gruß
Rainer
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige