lerne grade was Neues - und zwar das Übergeben einer Variablen von einem Makro an ein weiteres - und schon stolpere ich.
Hier die beiden Makros(-schnippsel), die auch beide wunderbar funktionieren (müssen nicht durchgefieselt werden, die klappen):
Das erste Makro wird aus einer UF heraus aufgerufen:
Sub auswaehlen_markieren(iRowL)
Dim strName As String
Dim cFound As Range
If dlgEinzelrechnung.listAuswahl.ListIndex = -1 Then
MsgBox "Keine Auswahl getroffen!"
Exit Sub
End If
strName = dlgEinzelrechnung.listAuswahl.Value
Set cFound = Range(Cells(1, 3), Cells(iRowL, 3)).Find(strName, LookIn:=xlValues)
If Not cFound Is Nothing Then cFound.Select
Unload dlgEinzelrechnung
Application.ScreenUpdating = True
Call Einzelrechnung_schreiben(cFound)
End Sub
Sub Einzelrechnung_schreiben(cFound)
''''''''ausgewählte Einzelrechnung drucken:
...
...
...
...
End Sub
Wie gesagt, das passt so.
Nun möchte ich aber zusätzlich unter Umgehung sowohl der UF als auch der ersten Makros mittels Doppelklick gleich auf den richtigen Namen direkt ins Makro " Einzelrechnung_schreiben " springen, dabei wird aber die Variable nicht mit übergeben:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Einzelrechnung_schreiben
Cancel = True
End Sub
Und jetzt gibt's bei der Zeile " Einzelrechnung_schreiben " die Fehlermeldung : " Argument ist nicht optional. " Und finde keine Lösung...
Gibt es dafür eine Lösung?
Vielen Dank im Voraus und Grüße
Franz