Oder Funktion mit Suche und Datum übetragen
16.07.2018 17:45:11
maier
habe eine frage.
Habe folgendes Makro:
Sub Makro2()
' Makro2 Makro
EndeTB1 = ThisWorkbook.Worksheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row ' Variables _
Ende der Spalte B wird ermittelt und gespeichert
For i = 1 To EndeAESTOFF1 ' Anfang der ersten Zählschleife
If ThisWorkbook.Worksheets("Tabelle1").Cells(i, 2) = "X1"Then ' Wenn x in Spalte A (indivduelle _
Zeile) vorhanden, dann...
EndeTB2 = ThisWorkbook.Worksheets("Zwischenschritt").Cells(Rows.Count, 1).End(xlUp).Row ' _
Ermittel letzte beschriebene Zelle auf Tabelle2
ThisWorkbook.Worksheets("Zwischenschritt").Cells(EndeTB2 + 1, 1) = ThisWorkbook.Worksheets(" _
AESTOFF1").Cells(i, 1) ' Trage Wert aus Spalte C in Tabelle2 in erste freie Zelle ein
ThisWorkbook.Worksheets("Zwischenschritt").Cells(EndeTB2 + 1, 2) = ThisWorkbook.Worksheets(" _
Tabelle1").Cells(i, 2)
ThisWorkbook.Worksheets("Zwischenschritt").Cells(EndeTB2 + 1, 4) = ThisWorkbook.Worksheets(" _
Tabelle1").Cells(i, 8)
ThisWorkbook.Worksheets("Zwischenschritt").Cells(EndeTB2 + 1, 3) = ThisWorkbook.Worksheets(" _
Tabelle1").Cells(i, 11)
End If
Next i 'Ende der Schleife
End Sub
Was ich nicht hinbekomme.
1. Problem
Aktuell sucht er nur nach X1. Ich müsste aber von X1 bis X9 suchen. Also alles mit X und Zahl. ich habe versucht = "X1" or "X2" ging aber nicht.
Habe auch schon versucht Suchwort = "X1" or "X2" und ging leider auch nicht.
Wie kann ich nach mehreren Begriffen suchen?
2. Problem
Bei dieser Zeile:
ThisWorkbook.Worksheets("Zwischenschritt").Cells(EndeTB2 + 1, 3) = ThisWorkbook.Worksheets("Tabelle1").Cells(i, 11)
in Tabelle 1 Spalte 11 ist ein Datum hinterlegt. Wenn ich dies nun in die Zwischenschritt Mappe übetrage wird von ein DAtum eine Zahl. Wie kann ich Datum zu Datum kopieren?
DANKE