ich habe ein Makro erstellt, in welchem Textboxen gefüllt werden.
Option 1: Wenn in der Textbox 7 kein Wert steht, wird im Namenfeld "INDEX" eine 2 geschrieben und es soll eine Msgbox angezeigt werden.
Option 2: Steht in Textbox 7 ein Wert, soll das Makro M21032024 gestartet werden.
Beides funktioniert, jedoch wird mir bei der Option 2 am Ende trotzdem die Msgbox angezeigt.
Sub Zelleleer()
'
' Zelleleer Makro
'
ThisWorkbook.Sheets("Überschrift").Activate
Range("e1").Value = TextBox7.Value
Range("c2").Value = TextBox1.Value
Range("c3").Value = TextBox2.Value
Range("c4").Value = TextBox3.Value
Range("c6").Value = TextBox4.Value
Range("c7").Value = TextBox5.Value
Range("c8").Value = TextBox6.Value
Range("c9").Value = TextBox7.Value
Range("c10").Value = TextBox8.Value
Range("c11").Value = TextBox9.Value
If Range("INDEX").Value = 2 Then
MsgBox ("Datensatz existiert nicht!" & vbNewLine & "Änderung nicht möglich!" & vbNewLine & "Es können nur existierende Datensätze geändert werden!")
Else
Call M21032024
End If
End Sub
Ich habe folgendes Makro als separates Makro kopiert, ohne die Textboxen, damit ich mit F8 Schritt für Schritt nach dem Fehler suchen kann. Das funktioniert komischerweise, es wird keine Msgbox mehr angezeigt.
Mittlerweile bin ich mit meinem Latein am Ende. Hat jemand eine Lösung?
Sub AAATest()
'
' AAATest Makro
'
If Range("INDEX").Value = 2 Then
MsgBox ("Datensatz existiert nicht!" & vbNewLine & "Änderung nicht möglich!" & vbNewLine & "Es können nur existierende Datensätze geändert werden!")
Else
Call M21032024
End If
End Sub
Liebe Grüße
Wolfgang