Daten aus Tabelle in Label einer Userform einfügen
10.07.2003 15:09:22
Karsten J.
Zur Zeit lasse ich meine Ergebnisse in ein weiteres Datenblatt mit dem Namen "Drucken" ausgeben. Mit folgendem Teilcode:
Sheets("Drucken").Select
Range("c2:f18").Select
Selection.ClearContents
Range("c20:f23").Select
Selection.ClearContents
If Sheets("Besetzung").Range("B1") <> "" Then Range("C2") = Sheets("Besetzung").Range("B1")
If Sheets("Besetzung").Range("B2") <> "" Then Range("C3") = Sheets("Besetzung").Range("B2")
If Sheets("Besetzung").Range("B3") <> "" Then Range("C4") = Sheets("Besetzung").Range("B3")
If Sheets("Besetzung").Range("B4") <> "" Then Range("C5") = Sheets("Besetzung").Range("B4")
If Sheets("Besetzung").Range("B5") <> "" Then Range("C6") = Sheets("Besetzung").Range("B5")
If Sheets("Besetzung").Range("B6") <> "" Then Range("d6") = Sheets("Besetzung").Range("B6")
If Sheets("Besetzung").Range("B7") <> "" Then Range("e6") = Sheets("Besetzung").Range("B7")
If Sheets("Besetzung").Range("B8") <> "" Then Range("f6") = Sheets("Besetzung").Range("B8")
Jetzt möchte ich es jedoch in einem Userform ausgeben und die Daten je in ein Label einfügen.
Wie kann ich das machen??
Das userform heißt bei mir : Besetzungsausgabe und die Labels beginnen mit label20.....
MfG
Karsten