VBA Code funktioniert nicht
29.06.2018 07:28:11
Marcus
kann mir jemand bei meinem "kleinen Problem" helfen?!? Ich komm einfach nicht weiter.
Folgende Ausgangssituation:
Über einen Knopf hol ich mir Daten zusammen und werte die aus. Der letzte Absatz (Dim a As Variant) Soll mir dann die ermittelten Werte kopieren und in eine Tabelle eintragen. Macht er eigentlich auch wenn ich den Code in einen Knopf allein kopier aber im Verbund wie hier nicht.
Muss ich das Sheet "Auswertung Wikidaten" noch irgendwie aktivieren oder ähnliches? ich komm nicht drauf.
Private Sub CommandButton1_Click()
Sheets("Auswertung Wikidaten").Select
ActiveSheet.Range("N15:O18").Select
Selection.Copy
Sheets("Move über Rezept Eqptype").Select
Sheets("Move über Rezept Eqptype").Range("F2:G5").Select
ActiveSheet.Paste
Call Move_ueber_Rezept_EQType.Rezept_EQT("EQT_VonBis")
Call Allgemein.Fenster
ActiveSheet.Range("$A$15:$CR$400").Autofilter Field:=8, Criteria1:=Array( _
"DSMD*", "SMD0*"), Operator:=xlFilterValues
Sheets("Move über Rezept Eqptype").Rows("15:400").Select
Selection.Copy
Sheets("Aufbereitet_1").Select
Sheets("Aufbereitet_1").Cells.Select
Sheets("Aufbereitet_1").Paste
Sheets("Auswertung Wikidaten").Select
Dim a As Variant
a = Application.Match(CLng(Range("L16")), Columns(1), 0)
If IsNumeric(a) Then
Cells(a, 3) = Cells(5, 12)
Cells(a, 4) = Cells(8, 12)
Cells(a, 5) = Cells(11, 12)
End If
End Sub
Lieben Dank für die Hilfe schonmal im Voraus. Marcus