eine Kurze Frage, ich habe in einem Tabellenblatt ein Säulendiagramm eingefügt, ist es nun möglich, durch Anklicken einer bestimmten Säule in dem Diagramm ein Makro zu starten (konkret eine Userform)? Danke schonmal!
UserForm2.Show
If Not Range("Ereignisse!A259:A262").Find(Range("Tabelle1!AG4")) Is Nothing Then
UserForm2.TextBox1.Text = "Ausfuhr"
UserForm2.Label3.Caption = "Art:"
UserForm2.Label3.Caption = "Menge:"
End If
With UserForm2
.TextBox2.Text = Format(Format(Now, "hh"), "00")
.TextBox3.Text = Format(Format(Now, "nn"), "00")
.TextBox4.Text = Range("Tabelle1!AG4").Text
.TextBox5.SetFocus
End With
In der Userform2 löst dann das Klicken auf die Schaltfläche "Eintragen" folgendes Makro aus:Private Sub CommandButton1_Click()
Dim nz As Integer
nz = 12
Do Until nz = 105
If Range("Tabelle1!S" & nz).Value = "" Then
Range("Tabelle1!S" & nz).Value = TextBox4.Value
Range("Tabelle1!U" & nz).Value = TextBox2 & ":" & TextBox3
Range("Tabelle1!V" & nz).Value = TextBox5.Value
Call Tabelle1.TabelleFormatieren
Unload Me
Exit Sub
Else
nz = nz + 1
End If
Loop
End Sub
If IDNumber = xlSeries Then
Call ActiveCell.Select
Select Case Argument1
Case 8
Select Case Argument2
Case 12
MsgBox "Test"
End Select
Case 12
Call Säule01
Case 13