Guten Tag,
hallo, ich habe folgendes Problem:
ich schreibe den Zelleninhalt bestimmer Zellen aus Tabellenblatt 1 automtisch in ein anderes Tabellenblatt 2. Die Zeilenhöhe in dem anderen Tabellenblatt 2 sollte sich automatisch anpassen, aber wenn ich es über Format oder zeilenhöhe fixiere, dann ist es weg, wenn ich in dem 1. Tabellenblatt ändere, bzw. neu dazuschreibe. Gibt es ein Makro mit dem ich das ganze Blatt so einstellen kann, dass immer angepasst wird oder was habe ich sonst für Möglichkeiten?
Hallo waltervonbayern,
da muss ich passen bzw. ich habe den Verdacht, dass man hier auch mit einer Makro nur unter gewissen Randbedingungen weiter kommen könnte.
MfG Georg V.
Hallo Walter
Die einzige Möglichkeit - die ich kenne - ist alle
Tabellenblätter zu markieren und dass Format anzupassen
(z. B. Duppelklick zwischen die Zeilen oder Spalten
oder über Format -> automatische Höhe/Breite). Achtung!
Unbedingt darauf achten, dass Du danach die Markierung
der Tabellenblätter wieder entfernst…
Gruss
Guten Tag,
hallo, ich habe folgendes Problem:
ich schreibe den Zelleninhalt bestimmer Zellen aus
Tabellenblatt 1 automtisch in ein anderes
Tabellenblatt 2. Die
Zeilenhöhe in dem anderen Tabellenblatt 2 sollte sich
automatisch anpassen, aber wenn ich es über Format
oder
zeilenhöhe fixiere, dann ist es weg, wenn ich in dem
Tabellenblatt ändere, bzw. neu dazuschreibe. Gibt es
ein Makro
mit dem ich das ganze Blatt so einstellen kann, dass
immer
angepasst wird oder was habe ich sonst für
Möglichkeiten?
Sub HoeheAnpassen()
ActiveSheet.Range(„a1:a10“).Rows.EntireRow.AutoFit
End Sub
Gruß
hallo, dass sieht gut aus, aber wie bringe ich das makro jetzt in meine Liste, damit es jedesmal aktiv ist, wenn ich auf auf das Tabellenblatt anwähle, ich meine wenn ich unten in der Menüleiste von Tabllenblatt 1 in Tabellenblatt 2 wechsle. Ich weiss schon wie man ein Marko erstellt und ich kann deinen Text dann auch reinkopieren, aber wie aktiviere ich es dass es aktive ist, sobald ich das Tabellenblatt öffne?
Sub HoeheAnpassen()
ActiveSheet.Range(„a1:a10“).Rows.EntireRow.AutoFit
End SubGruß
danke, habe es so gemacht, aber wenn ich auf den Button drücke passiert nichts, was kann ich falsch machen?
Hallo, danke funktioniert jetzt doch
Gruss
Walter
Sub HoeheAnpassen()
ActiveSheet.Range(„a1:a10“).Rows.EntireRow.AutoFit
End SubGruß