Makro Hilfe

Sub Datum1WerteInHilfe() Dim Datum As Variant Dim Alle_Daten As Variant Dim pos_des_Datums As Double Dim Quelltab As Worksheet Dim Zieltab As Worksheet Dim Zelle As Range Alle_Daten = Array("Tabelle!$B$2:$ZZ$2") Datum = Range("Ausgabe!$N$7") pos_des_Datums = WorksheetFunction.Match(Datum, Alle_Daten) Zaehler = 32 Bereich = "&pos_des_Datums,2:&pos_des_Datums,14" Set Quelltab = ActiveWorkbook.Worksheets("Tabelle") Set Zieltab = ActiveWorkbook.Worksheets("Tabelle") For Each Zelle In Quelltab.Range("&pos_des_Datums,2:&pos_des_Datums,14") Zieltab.Cells(Zaehler, 2) = Zelle Zaehler = Zaehler + 1 Next Zelle End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro Hilfe

16.09.2015 12:41:20

matthias

AW: Makro Hilfe

16.09.2015 15:22:17

CaptainFlounder

AW: Makro Hilfe

17.09.2015 15:25:13

Matthias

AW: Makro Hilfe

18.09.2015 10:09:34

CaptainFlounder

AW: Makro Hilfe

18.09.2015 15:05:20

matthias

AW: Makro Hilfe

18.09.2015 15:30:41

CaptainFlounder

Hallo Johann,
.Range("&pos_des_Datums,2:&pos_des_Datums,14") wird so nicht funktionieren, weil alles was zwischen Anführungszeichen steht als Text interpretiert wird.
Zudem arbeitet die Range-Anweisung mit Spalten als Buchstaben angegeben (Bsp.: Range("C3")). Was du nutzen solltest ist daher Cells(Zeile, Spalte), wobei Zeile und Spalte als Zahlenwert angegeben werden. Um ein "von Zelle 1 bis Zelle X" zu erzeugen musst du beide daher in Cells angeben und mit einer Range-Anweisung kombinieren. In deinem Fall konkret:

.Range(Cells(2,pos_des_Datums),Cells(14,pos_des_Datums))

Bereich = "&pos_des_Datums,2:&pos_des_Datums,14"
Zunächst einmal ist die Variable Bereich als Range zu deklarieren:

Dim Bereich As Range

Um der Variable die Zellen zuzuweisen geht man gehst du genau wie beim Quell-/Zieltab vor:

Set Bereich = Quelltab.Range(...)

Gleiches gilt für Datum, welches ja ebenfalls eine Range darstellt.
Mit Match im Zusammenhang mit Array kenne ich mich nicht so gut aus, daher habe ich das ganze mit einer Suchfunktion gelöst:


Sub Datum1WerteInHilfe()
Dim dDatum As Date
Dim rZelle As Range
Dim Quelltab As Worksheet, Zieltab As Worksheet
dDatum = Range("Ausgabe!$N$7").Value
Set Quelltab = Worksheets("Tabelle1")
Set Zieltab = Worksheets("Tabelle2")
Set rZelle = Quelltab.Range("A:XFD").Find(What:=dDatum, LookIn:=xlValues, _
LookAt:=xlWhole)
'Position des Datums ist nun mit rZelle.Address/rZelle.Row/rZelle.Column abrufbar
If Not rZelle Is Nothing Then 'Wenn nicht Nichts gefunden wurde, _
dann kopiere Zeile 2 bis 14 in Spalte der gefundenen Zelle
Quelltab.Range(Cells(2, rZelle.Column),Cells(14, rZelle.Column)).Copy _
Destination:=Zieltab.Range("B32")
Else: MsgBox "Datum nicht gefunden."
End If
End Sub

lg Matthias

Sub Datum1WerteInHilfeTest() Dim dDatum As Date Dim rZelle As Range Dim Quelltab As Worksheet, Zieltab As Worksheet dDatum = Range("Tabelle!$A$47").Value Set Quelltab = Worksheets("Tabelle") Set Zieltab = Worksheets("Tabelle") Set rZelle = Quelltab.Range("A:XFD").Find(What:=dDatum, LookIn:=xlValues, _ LookAt:=xlWhole) Quelltab.Range(Cells(2, rZelle.Column), Cells(14, rZelle.Column)).Copy _ Destination:=Zieltab.Range("B32") Else: MsgBox "Datum nicht gefunden." End If End Sub

Sub Datum1WerteInHilfeTest() Dim dDatum As Date Dim rZelle As Range Dim Quelltab As Worksheet, Zieltab As Worksheet dDatum = Range("Tabelle!$A$47").Value Set Quelltab = Worksheets("Tabelle") Set Zieltab = Worksheets("Tabelle") Set rZelle = Quelltab.Cells.Find(What:=dDatum, LookIn:=xlFormulas, _ LookAt:=xlWhole) If Not rZelle Is Nothing Then Quelltab.Range(Cells(2, rZelle.Column), Cells(14, rZelle.Column)).Copy _ Destination:=Zieltab.Range("B32") Else: MsgBox "Datum nicht gefunden." End If End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread