24 Aufrufe
Gefragt in Tabellenkalkulation von

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              

1 Antwort

0 Punkte
Beantwortet von beverly_ Experte (2.3k Punkte)

Hi Kay,

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

Bis später, Karin

...