wie kann ich zwei Worksheet Anweisungen unter ein Hut bekommen?

Question

Hallo habe zwei Worksheet Anweisungen aber leider kann man im cod Bereich ja nur eine verwenden. Ich habe schon anderweitig versucht eine andre Lösung zu finden aber Ohne Erfolg. Vielleicht weiß hier ja einer wie ich beide Anweisungen unter einen Hut bekomme

Private Sub Worksheet_Change(ByVal Target As Range)          'Setzt automatisch bei Eingabe den Zeit Stempel
If Intersect(Target, Range("B:H")) Is Nothing Or _
    Target.Count > 1 Then Exit Sub
Cells(Target.Row, "I") = Now
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Target.EntireColumn.AutoFit                                    'Spaltenbreite & Höhe passt sich Automatich an Zellinhalt an 
End Sub              

Answer 1

Hi Kay,

schreibe einfach die Codezeile aus der zweiten Anweisung vor die Zeile End Sub der ersten Anweisung.

Bis später, Karin