zellenbreite N354 automatisch oder mindestens 8.43

Question

Guten Tag, wie kann man ein vba (zellenbreite N354 automatisch oder mindestens 8.43) schreiben, es soll sich nur auf die Zelle N354 beschränken. Danke

Answer 1

Hallo Jelena,

was genau hast du denn vor? Du kannst keine einzelnen Zellen verbreitern. Das geht nur für die gesamte Spalte. Falls du also die Spaltenbreite anpassen willst, sobald Zelle N354 markiert ist, dann z.B. so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$N$354" Then
    Target.EntireColumn.ColumnWidth = 8.43
  Else
    Columns("N:N").EntireColumn.AutoFit
  End If
End Sub

Der Code gehört in das entsprechende Tabellenmodul. 

Gruß Mr. K.

Answer 2

Hallo Mr. K., dieser Code macht die Spaltenbreite nachdem die Zelle N354 leer ist auf 11.57. Danke

Answer 3

Hey Jelena,

das ist durchaus möglich, du wolltest ja eine automatische Anpassung. Das bedeutet, die Breite richtet sich nach dem längsten Eintrag in Spalte N, egal wo dieser steht. Die 8,43 wird nur als Breite fixiert wenn du die Zelle N354 anwählst und zur Aktiven Zelle machst.

Das ist das Einzige was ich dir auf Basis deiner spärlichen Informationen anbieten kann. Aber wie gesagt, einzelne Zellen können nicht verbreitert werden, immer nur ganze Spalten.

Gruß Mr. K.

Answer 4

Hallo Mr. K. vielen Dank