Prosa in vba. Erste freie Zeile.offset

Forumthread: Prosa in vba. Erste freie Zeile.offset

22.11.2004 11:34:04

Harald

Hallo zusammen,
Problemstellung:
Ich möchte verschiedene Bereiche kopieren und in einem zweiten Blatt einfügen.
1. kopierte Zelle in zweites Blatt in die Zelle links neben der ersten freien Zelle von Spalte B
2. kopierte Zelle in zweites Blatt wie in Punkt 1 nur 24 Spalten weiter unten.
Ich hab schon mit xlblank.offset oder xlup etc. versucht. Er bringt mir aber Fehlermeldungen. Liegt wohl an meinen bescheidenen Fähigkeiten, das in einem vernünftigen vba-Kontext zu bringen.
Hoffe ihr könnt mir da was Amtliches liefern.
Gruß
Harald

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Prosa in vba. Erste freie Zeile.offset

Galenzo
AW: Prosa in vba. Erste freie Zeile.offset

22.11.2004 12:08:06

Harald
erledigt. Lösung anbei

24.11.2004 13:03:47

Harald

AW: Prosa in vba. Erste freie Zeile.offset

Galenzo

Hallo,
dies hier sollte helfen:
ActiveCell.Copy Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Offset(0, -1).Range("A1,A24")
Viel Erfolg!

AW: Prosa in vba. Erste freie Zeile.offset

22.11.2004 12:08:06

Harald

Hallo Galenzo,
Mea Culpa. Hab nicht geschrieben, dass
a) es sich um zwei verschiedene Zellen handelt
b) nur die Werte kopiert werden sollen.
Die zu kopierenden Werte entstehen durch folgenden Code


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Datum Eintrag
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("C14:Z14")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(-1, 0) = Date
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

In folgender Form hab ich versucht den Kopiervorgang durchzuführen.
Sub Makro1()
Sheets("C214 RECHTS").Unprotect "tina"
Set adat = Sheets("C214 RECHTS").Range("c13").Value
Set edat = Sheets("C214 RECHTS").Range("z13").Value
adat.Copy Sheets("Daten alle").Cells(Rows.Count, 2).End(xlUp).Offset(1, -1)
edat.Copy Sheets("Daten alle").Cells(Rows.Count, 2).End(xlUp).Offset(24, -1)
End Sub
Hierbei meldet er mir Typen unverträglich.
So gehts auch nicht ;-/
Sheets("C214 RECHTS").Range("c13").Value.Copy Sheets("Daten alle").Cells(Rows.Count, 2).End(xlUp).Offset(1, -1)
Hierbei meldet er Objekt erforderlich.
Gruß
Harald

erledigt. Lösung anbei

24.11.2004 13:03:47

Harald

Weiß nicht wieso, es sieht seltsam aus, aber funzt.
Dim lRow As Long
lRow = Worksheets("Daten").Cells(Rows.Count, 2).End(xlUp).Row + 1
Worksheets("RECHTS").Range("c13").Copy
Worksheets("Daten alle").Cells(lRow, 2).Offset(0, -1).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Gruß
Harald

Beliebteste Forumthreads (12 Monate)

Prosa in vba. Erste freie Zeile.offset

Forumthread: Prosa in vba. Erste freie Zeile.offset

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread