Range mit dynamischer Spalte

x.x · 2021-04-08T17:38:23+00:00

Hallo ich möchte Range("$BD$3:$BG$3") ersetzen durch einen dynmaischen Wert. Dafür suche ich zunächst die Spalte mit dem Wert "Datum" und möchte dann die nächste, rechts davon nehmen, d.h. irgendwie in dem Format Cells(3, Such.Column +1) Code: '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" Wäre dankbar für Tipps! LG

Hallo,
dann z.B. so:


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

Gruß Werner

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

Forumthread: Range mit dynamischer Spalte

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Range mit dynamischer Spalte

Forumthread: Range mit dynamischer Spalte

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread