Clever-Excel-Forum

Ich hätte auch gerne etwas dazu gelernt für die aufgewendete Zeit!

Sonst evtl. jemand einen Tip ?

Dann mal weiter im Chat-Stil, also ohne Begrüßung …
Warum mittels VBA ein "Filtrat" auf einer neuen Tabelle, wenn Excel exakt dafür die Funktion filtern kennt?

Einen wundeschönen guten Morgen,

VBA weil ..

Weil die Zellinhalte variabel sind und in Abhängigkeit des Datums in Form und größe unterschiedlich.

Mit frostigen Grüßen

Wexel

Hallo erstmal,

dein Makro von Beitrag #1 enthält viel unnötigen Ballast.
Ich habe das mal gekürzt und für den 2. Arbeitsvorgang was gewastlt.

AV2

Hallo Wastl,

danke soweit für deinen Ansatz.

Leider schreibt mir dein 2. Makro die Werte nicht in die gewünschte Tabelle zurück.

Grüße
Wexel

Moin,

bei mir klappts. Zeig doch mal bitte was du gemacht hast, bzw. deine Datei anonymisiert.

Moin,

also das ist der Hin Befehl, das klappt soweit, mal abgesehen das ich den Altbestand vorher noch löschen muss, ist aber nicht das Problem..

Sub test()
'Arbeitsvorgang 1
Dim a As Long, i As Long

a = 8
For i = 8 To 300
   With Worksheets("Tabelle1")
       If .Cells(i, "D") = Worksheets("Tabelle3").Range("B3") Then
           'Ziel time conflict = kommt aus All time in  ??
           Worksheets("Tabelle3").Cells(a, 1).Value = .Cells(i, 1).Value
           Worksheets("Tabelle3").Cells(a, 2).Value = .Cells(i, 2).Value
           Worksheets("Tabelle3").Cells(a, 3).Value = .Cells(i, 3).Value
           Worksheets("Tabelle3").Cells(a, 4).Value = .Cells(i, 5).Value
           Worksheets("Tabelle3").Cells(a, 5).Value = .Cells(i, 6).Value
           a = a + 1
       End If
   End With
Next i
End Sub


Und hier der Rück - Befehl, das Makro blebt an der Stelle stop stehen..

Sub AV()
Dim Tab1 As Variant
Dim intI As Integer
Tab1 = Tabelle2.Range("A8:F308")
Stop
For intI = 1 To 300
   If Sheets("Tabelle3").Cells(8, 1) = Tab1(intI, 1) Then
       Tabelle2.Cells(intI + 4, 5) = Sheets("Tabelle3").Cells(8, 5)
       Tabelle2.Cells(intI + 4, 6) = Sheets("Tabelle3").Cells(8, 6)
       Exit For
   End If
Next
End Sub


mfg wexel

(08.02.2018, 09:02)Wexel schrieb: [ -> ]Und hier der Rück - Befehl, das Makro blebt an der Stelle stop stehen..

Hallo
Der Befehl um ein Makro anzuhalten. 1. Lektion VBA.