eine kleines Problem- wobei ich noch etwas festsitze-
Wenn der Ausführungsbefehl einer Befehlsschaltfläche - 15 und 16 zusätlich von einer anderen Funktion ebenfalls ausgeführt werden soll- was müsste ich wo noch im Code hinterlegen.
Es soll im unteren Code- wo steht Makro01 und Makro02 der Befehl der Schaltfläche 16 und 15 , die sich in der Userform1 befinden- ebenfalls ausgeführt werden.
Sub vergleichen()
Dim c As Range
Dim firstAddress As String
With Tabelle4.Range("Q58:Q144", "T58:T84")
Set c = .Find(Tabelle4.Range("R52").Text, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Select Case c.Column
Case Is = 4
Makro01 ' das soll Befehlsschaltfläche16 ausführen
Case Is = 7
Makro02 ' das soll Befehlsschaltfläche15 ausführen
Case Else
Makro03
End Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Grüße Silke