Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Prosa in vba. Erste freie Zeile.offset

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
Anzeige
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
Anzeige
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

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige