Supportnet / Forum / Tabellenkalkulation
Zellen automatish anpassen????
Frage
Hallo liebs Forum!
Noch eine kurze Frage: Und zwar wie kann ich denn die Zellen individuell vergrößern bzw. verkleinern? Also wenn ich über eine Inputbox z.B. eine email adresse in eine zelle z.b. f6 eintragen lassen und dann soll sich die zelle automatisch der größe der email anpassen. bzw. alle zellen darüber und darunter, der jeweils größten?
Vielen Dank im vorraus!
Mave
Antwort 1 von coros
Hi Mave,
hier mal ein Beispiel:
Der eingegebene Text wird an die Zelle C3 übergeben und die Spaltenbreite wird an die Textbreite automatisch angepasst. Das Anpassen erfolgt durch die Zeile
Columns("A:IV").EntireColumn.AutoFit
im obigen Code.
Ich hoffe, Du kannst damit was anfangen? Bei Frage melde Dich noch mal.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
hier mal ein Beispiel:
Private Sub CommandButton1_Click()
Range("C3") = InputBox("Eingabe durchführen")
Columns("A:IV").EntireColumn.AutoFit
End Sub
Der eingegebene Text wird an die Zelle C3 übergeben und die Spaltenbreite wird an die Textbreite automatisch angepasst. Das Anpassen erfolgt durch die Zeile
Columns("A:IV").EntireColumn.AutoFit
im obigen Code.
Ich hoffe, Du kannst damit was anfangen? Bei Frage melde Dich noch mal.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.