title image


Smiley 2 VBA Codes im Tabellenblatt mit gleichem Anfang verbinden
Hey Leute,



ich habe in meinem Excel Sheets zwei Tabellenblattcodes unterzubringen,

die auch beide unabhänging voneinander funktionieren,

Problem ist nur, dass ich anscheinend nur einen Code in je ein Tabllenblatt

einbinden kann - auf jedenfall mit dem gleichen Anfang (Anfang: Private Sub

Worksheet_Change(ByVal Target As Range) (-sorry aber kenne

mich mit VBA absolut null aus ;o)

Könnt ihr mir sagen wie ich die beiden Codes miteinander verbinden kann,

so dass auch beide in einem Tabellenblatt ausgeführt werden, oder welche

Änderung ich vornehmen muss?!



Danke



Grüzzlie Angie



Hier die Codes:

Einmal:



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Row = 3 Then

ActiveSheet.Name = Target.Value

End If

End Sub



und zum zweiten:



Private Sub Worksheet_Change(ByVal Target As Range)

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´

End If

End If

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: