Usersform
25.01.2021 10:45:06
jasmin
ich brauche leider Hilfe bei einem bestimmten Problem
Ich habe mit VBA für das "Modul1" eine Abfrage wegen einem Messplatz geschrieben:
Mpltz = InputBox("Messplatz Nummer:", "Eingabe")
If Mpltz > 5 Or Mpltz MsgBox ("Eingabe nicht richtig. M_gliche Eingabe: 1,2,3,4,5")
Exit Sub
End If
Select Case Mpltz
Case 1: va = "P1"
Case 2: va = "P2"
Case 3: va = "P3"
Case 4: va = "P4"
Case 5: va = "P5"
End Select
Nun habe ich außerdem eine Userform mit Schaltflächen erstellt.
Mein Problem liegt genau hier:
Es sollen bestimmte Inhalte von dem Blatt Platz (1-5 je nachdem welches gewählt wurde) in das erste Arbeitsblatt kopiert werden
z.B. Beim klicken der Schaltfläche X87 sollen werte in die Zeilen F53:F64 kopiert werden
Sheets("AT1000").Range("C63:C73").Value = Worksheets(va).Range("F53:F64").Value
Ich bekomm aber immer einen Fehler angezeigt. Nun weiß ich nicht woran das liegt.
Eventuell am va ? weil dieser nur im Modul1 deklariert wurde?
Kann ich das sonst iwie mit in die Schaltfläche übernehmen ?