Hallo zusammen,

könnt ihr mir helfen? Wenn mein Wert =0 ist, soll an einer anderen Stelle im Makro weiter gemacht werden. Wie kann ich das in meinen Code einbauen. Unten könnt ihr sehen, was ich meine. Es handelt sich nur um einen kleinen Ausschnitt aus meinen Code.

Private Sub CommandButton21_Click()
' Messwerte übertragen
Dim wkbZiel As Workbook
Dim shZiel As Worksheet, shQuelle As Worksheet
Dim lngSpalte As Long
'pw baue ich ggf. später noch ein
Dim pw As String

   
    Application.ScreenUpdating = False
   Range("D1") = "Daten wurden übertragen"
       
    Set shQuelle = ActiveSheet
          
          
            ' Übertragung Dicke Dichte FG MK wenn BA17=1
          
    If shQuelle.Range("BA17").Value = 1 Then ' wenn shQuelle.Range("BA17").Value=0, dann mach mit "Übertragung Dicke Dichte FG MP weiter

            Set wkbZiel = GetObject("H:\.....\In Arbeit_Messergebnis-Datenbank.xls")
         
              Set shZiel = wkbZiel.Sheets("Dicke,Dichte, Flächengewicht")
        With shZiel
            .Rows(4).Insert CopyOrigin:=xlFormatFromRightOrBelow
            
            'Kopfdaten
            
            .Range("K4") = shQuelle.Range("F11").Value
            .Range("L4") = shQuelle.Range("F8").Value
          
            
            'Position MK
            .Range("Y4") = shQuelle.Range("F15").Value
                        

               ' Übertragung Dicke Dichte FG MP wenn BB17=1
               
                If shQuelle.Range("BB17").Value = 1 Then
                
            Set shZiel = wkbZiel.Sheets("Dicke,Dichte, Flächengewicht")
        With shZiel
            .Rows(4).Insert CopyOrigin:=xlFormatFromRightOrBelow
            
            'Kopfdaten
            .Range("K4") = shQuelle.Range("F11").Value
            .Range("L4") = shQuelle.Range("F8").Value
            
            
            'Position MP
            .Range("Y4") = shQuelle.Range("L15").Value
            
               

Vielen DanK!

    Liebe Grüße
SaSc