ich würde gern aus den 6 verschiedenen Werten in Zelle A1:A6 aussuchen und den jeweiligen Wert dann in andere Zellen per Mausklick eintragen.
Geht so etwas ?
Danke schon jetzt für jede Idee !
Gruß Mario
ich würde gern aus den 6 verschiedenen Werten in Zelle A1:A6 aussuchen und den jeweiligen Wert dann in andere Zellen per Mausklick eintragen.
Geht so etwas ?
Danke schon jetzt für jede Idee !
Gruß Mario
Private Sub CommandButton1_Click()
ActiveCell.Value = Cells(1, 1).Value
End Sub
Private Sub CommandButton2_Click()
ActiveCell.Value = Cells(2, 1).Value
End Sub
Private Sub CommandButton3_Click()
ActiveCell.Value = Cells(3, 1).Value
End Sub
Private Sub CommandButton4_Click()
ActiveCell.Value = Cells(4, 1).Value
End Sub
Private Sub CommandButton5_Click()
ActiveCell.Value = Cells(5, 1).Value
End Sub
Private Sub CommandButton6_Click()
ActiveCell.Value = Cells(6, 1).Value
End Sub
Private Sub UserForm_Initialize()
Dim iCount As Integer
For iCount = 1 To 6
Controls("CommandButton" & iCount).Caption = Cells(iCount, 1).Value
Next iCount
End Sub
VG,
Alex
Es ist aber noch nicht ganz so, wie ich es mir vorstelle. Nach Deinem Prinzip muß ich die Zelle, in der eingetragen werden soll anklicken und anschließend den CommandButton, damit der Eintrag ausgeführt wird. Ich würde den Eintrag aber gern schon haben, wenn ich die Zelle anklicke.
Also: Ich klicke auf Zelle A1 (darin steht der Wert "17").
Danach klicke ich die Zelle M51 an und schon steht darin der Wert "17". Die Werte in Zellen A1:A6 sind konstante Werte. Die müssen nicht unbedingt in Zellen stehen, sondern könnten auch je ein Knopf sein, den ich drücke.
Zum Verständnis: Ich baue gerade einen Dienstplan. In Spalte 1 stehen die Namen der Mitarbeiter(100 Personen). Rechts daneben die Tage 1 - 31. Die sechs verschiedenen Einträge, die ich mit dem Mausklick haben will, sind die verschiedenen Dienste.
Könnte das gehen ?
vielleicht reicht Dir schon eine Gültigkeitsauswahl, schau mal unter Daten - Gültigkeit.
Gruß
Peter