Ich habe eine UF mit einem Code, in welchem folgende Daten stehen:
<pre>Private Sub OptionButton3_Click()
Dim wb As Workbook
Dim wksH As Worksheet
Set wb = ThisWorkbook
Set wksH = wb.Worksheets("Hilfstabelle")
If Me.TextBox3 = wksH.Range("AQ3") Then
xml_Abrechnung_Übertrag_Scan1
End If
If Me.TextBox4 = wksH.Range("AQ5") Then
xml_Abrechnung_Übertrag_Scan2
End If
If Me.TextBox3 = wksH.Range("AQ2") Then
csv_Abrechnung_Übertrag_Scan1
End If
If Me.TextBox4 = wksH.Range("AQ4") Then
csv_Abrechnung_Übertrag_Scan2
End If
End Sub</pre>
Nun benötige ich folgendes:
If Me.TextBox3 = "" then
next if
elseIf Me.TextBox3 = wksH.Range("AQ3") Then
xml_Abrechnung_Übertrag_Scan1
End If
Ist das so richtig oder geht das nicht?
Könnt ihr mir bitte helfen.
Besten Dank
Gruss
Peter