Tabelle hin / herschieben

[Wexel]

Was hat das eine mit dem anderen zu tun ?

[Helvetier]

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

[Wexel]

Sonst evtl. jemand einen Tip ?

[RPP63]

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?

[Wexel]

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

[Wastl]

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.

Code:

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

AV2

Code:

Sub AV2()
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

[Wexel]

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

[Wastl]

Moin,

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

[Wexel]

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

[Helvetier]

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

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