title image


Smiley Ohne es geprüft zu haben : es sollte folgendermassen funktionieren
Hallo Angie,



da ich die Mappen nicht kenne, konnte ich es natürlich nicht prüfen, aber rein vom Aufbau sollte es so funktionieren :







Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$B$3" Then

        ActiveSheet.Name = Target.Value

    Else

        ActiveCell.Offset(-1, 0).Activate

        Dim Rw, Cl As Long

        Rw = Target.EntireRow.Row

        Cl = Target.EntireColumn.Column



        If Cl = 19 And Rw >= 7 And Rw <= 33 Then

            If Target.Text = "x" Then

                Call DymoDruck\'b4

            End If

        End If

    End If

End Sub








Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: