Range mit dynamischer Spalte

'Datum transponieren Dim Such As Range Such = Sheets("A.").Rows(3).Find(what:="Datum", LookIn:=xlValues, lookat:=xlWhole) Sheets("N.").Range("$BD$3:$BG$3").Copy Sheets("Imp").Range("$F$2:F" & Cells(Rows.Count, 1).End(xlUp).Row).PasteSpecial Paste:= _ xlPasteValues, Transpose:=True Columns("F:F").NumberFormat = "m/d/yyyy"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schaltfläche1_Klicken() Dim Such As Range Set Such = Sheets("A.").Rows(3).Find(what:="Datum", _ LookIn:=xlValues, lookat:=xlWhole) If Not Such Is Nothing Then Sheets("N.").Cells(3, Such.Column).Offset(, 1).Resize(, 4).Copy With Sheets("Imp") .Cells(.Cells(.Rows.Count, "F").End(xlUp).Offset(1).Row, "F") _ .PasteSpecial Paste:=xlPasteValues, Transpose:=True .Columns("F").NumberFormat = "m/d/yyyy" End With Else MsgBox "Es gibt keine Spalte Datum." End If Set Such = Nothing Application.CutCopyMode = False End Sub

Sub Schaltfläche1_Klicken() Dim Such As Range, loAnfang As Long, loEnde As Long Application.ScreenUpdating = False Set Such = Sheets("A.").Rows(3).Find(what:="Datum", _ LookIn:=xlValues, lookat:=xlWhole) If Not Such Is Nothing Then Sheets("N.").Cells(3, Such.Column).Offset(, 1).Resize(, 4).Copy With Sheets("Imp") loAnfang = .Cells(.Rows.Count, "F").End(xlUp).Offset(1).Row loEnde = .Cells(.Rows.Count, "A").End(xlUp).Row .Cells(loAnfang, "F").PasteSpecial Paste:=xlPasteValues, Transpose:=True .Cells(loAnfang, "F").Resize(4).AutoFill _ Destination:=.Range(.Cells(loAnfang, "F"), .Cells(loEnde, "F")), Type:=xlFillCopy .Columns("F").NumberFormat = "m/d/yyyy" End With Else MsgBox "Es gibt keine Spalte Datum." End If Set Such = Nothing Application.CutCopyMode = False End Sub

Danke.
Ich hab es nun so gemacht

    Dim Liefertermin1 As Long, Liefertermin2 As Long, Liefertermin3 As Long, Liefertermin4 As  _
Long
Liefertermin1 = Sheets("Nfr.").Rows(3).Find(what:="Datum", LookIn:=xlValues, lookat:= _
xlWhole).Column + 1
Liefertermin2 = Sheets("Nfr.").Rows(3).Find(what:="Datum", LookIn:=xlValues, lookat:= _
xlWhole).Column + 2
Liefertermin3 = Sheets("Nfr.").Rows(3).Find(what:="Datum", LookIn:=xlValues, lookat:= _
xlWhole).Column + 3
Liefertermin4 = Sheets("Nfr.").Rows(3).Find(what:="Datum", LookIn:=xlValues, lookat:=xlWhole).Column + 4

Nun möchte ich diese Spalten von Termin 1 bis 4 in Zeile 3 kopieren und (mehrfach) einfügen:
Sheets("N.").Range(Cells(3, Liefertermin1), Cells(3, Liefertermin4)).Copy
Sheets("A.").Range("$F$2:F" & Cells(Rows.Count, 1).End(xlUp).Row).PasteSpecial Paste:=xlPasteValues, Transpose:=True
Leider erhalte ich hier einen Fehler: Anwendungs- oder objektorientierter Fehler (1004)
Hat jemand eine Lösung? LG

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread