Problem mit AutoFit
16.03.2005 10:41:21
Gunther
ich habe folgendes Problem: In Blatt y werden Einträge aus Blatt x übernommen.
Dann blende ich jeweils Spalten aus, die leer sind.
Funktioniert auch alles.
Aber: Wenn ich dann die Breite der gefüllten Spalten (und diese Spalten sind nicht leer!), anpassen möchte ( mit AutoFit), werden alle! Spalten ausgeblendet, auch die, die ohne autofit Anweisung noch sichtbar sind. Ich habe folgenden Code in Blatt y geschrieben.
Kann mir jemand sagen, was ich falsch gemacht habe
Sub worksheet_activate()
If Sheets("x").Range("a").Value = "" Then
Sheets("y").Columns("D:D").Hidden = True
Else: Columns("D:D").Hidden = False
sheets("y").Range("d2").Value = Sheets("x").Range("a").Value
End If
Call breite
End Sub
Sub breite()
Sheets("protokoll").Columns("C:L").EntireColumn.ColumnWidth = AutoFit
End Sub
Über eine Antwort freut sich
Gunther