würde bitte mal eine eure Hilfe benötige, komm hier gerade überhaupt nicht weiter
Es eigentlich um einen einfach Case / Else Code
Da ich den Case weder als Text noch als Zahl deklarieren kann, weiss ich im moment nicht welchen Datentyp ich verwenden soll, damit es klappt?
Sub Stueckzahlen()
Dim a As Integer
a = Worksheets("Tabelle1").Range("D6").Value
Select Case a
Case B66U20T5
Sheets("Tabelle1").Range("F6:O6").Copy Destination:=Sheets("Tabelle1").Range("E10")
Case Else
MsgBox "funzt nicht"
End Select
End Sub
Vielen DAnk für eure Hilfe
Tyroler