Supportnet / Forum / Tabellenkalkulation
Spaltenbreite und Zeilenhöhe
Frage
Tagchen!
Gibt es eine Möglichkeit die jeweilige Zeilenhöhe bzw. Spaltenbreite auszulesen?
Habe mehrere verschiedene Blätter von einem Arbeitskollegen übernommen und möchte diese nun gleich formatieren.
Format übertragen kann ich leider nicht anwenden.
Daher muss ich je Zeile bzw. Spalte die Größe/Breite händisch korrigieren.
Thanx!
Antwort 1 von Saarbauer
Hallo,
das Ganze ist auch mit dem Pinsel zu machen.
Spalte / Zeile Anklicken, "Pinsel", übertragen
Gruß
Helmut
das Ganze ist auch mit dem Pinsel zu machen.
Spalte / Zeile Anklicken, "Pinsel", übertragen
Gruß
Helmut
Antwort 2 von Gerlinde22
Danke für den Tipp.
Leider ist genau das mein Problem.
Ich kann eben nicht das Format einfach übertragen.
Die Zeilen bzw. Spalten sind unterschiedlich eingefärbt und ich möchte nur die Höhe bzw. Breite auslesen bzw. angleichen.
Gerlinde
Leider ist genau das mein Problem.
Ich kann eben nicht das Format einfach übertragen.
Die Zeilen bzw. Spalten sind unterschiedlich eingefärbt und ich möchte nur die Höhe bzw. Breite auslesen bzw. angleichen.
Gerlinde
Antwort 3 von Saarbauer
Hallo,
übertrage alles und anschließend setze die Farbe für das gesamte Blatt auf "Keine Farbe".
Gruß
Helmut
übertrage alles und anschließend setze die Farbe für das gesamte Blatt auf "Keine Farbe".
Gruß
Helmut
Antwort 4 von Hazgalad
Oder:
Alle Zeilen bzw Spalten markieren die die gleiche Höhe/Breite haben sollen.
Dann Cursor zwischen 2 beliebige Zeilen in der Markierung positionieren und Größe verändern. Nun sollten sich die restlichen Zeilen automatisch auf die Größe anpassen.
Hält man übrigens die Linke Maustaste gedrückt ohne sie zu bewegen (was eine Veränderung der Zeilen/Spaltengröße zur folge hätte) und wartet kurz sollte auch die Breite/Höhe in Pixel als Tooltip am Mauscursor ausgegeben werden .
Alle Zeilen bzw Spalten markieren die die gleiche Höhe/Breite haben sollen.
Dann Cursor zwischen 2 beliebige Zeilen in der Markierung positionieren und Größe verändern. Nun sollten sich die restlichen Zeilen automatisch auf die Größe anpassen.
Hält man übrigens die Linke Maustaste gedrückt ohne sie zu bewegen (was eine Veränderung der Zeilen/Spaltengröße zur folge hätte) und wartet kurz sollte auch die Breite/Höhe in Pixel als Tooltip am Mauscursor ausgegeben werden .
Antwort 5 von Gerlinde22
Hm, da habe ich mich wohl unklar ausgedrückt.
Blatt B soll Blatt A im Hinblick auf die Zeilenhöhe bzw. Spaltenbreite gleichen.
Format übertragen funktioniert leider nicht, da die Zellen unterschiedlich formatiert (Schrift, Farbe, ...) sind.
Blatt A soll als Muster dienen und die nächsten vier Blätter sollen exakt die gleichen "Abmessungen" wie Blatt A haben.
Beispiel:
Leider kommt es vor, dass auf Blatt A die 1. + 3. Zeile 20 Pixel hoch sind und die 2. + 4. Zeile 25 Pixel hoch sein müssen.
Auf Blatt B sind nun die 1. + 3. Zeile zwar gleich hoch, aber die 2. Zeile 33 Pixel und die 4.. Zeile 48 Pixel.
Nun sollen sämtliche Zeilen betreffend der Höhe wie das Musterblatt aussehen.
Blatt A kopieren und dann die Werte aus Blatt B funktioniert leider auch nicht. --> zu umfangreich.
Vielleicht fällt ja jemandem noch etwas Geniales ein.
Blatt B soll Blatt A im Hinblick auf die Zeilenhöhe bzw. Spaltenbreite gleichen.
Format übertragen funktioniert leider nicht, da die Zellen unterschiedlich formatiert (Schrift, Farbe, ...) sind.
Blatt A soll als Muster dienen und die nächsten vier Blätter sollen exakt die gleichen "Abmessungen" wie Blatt A haben.
Beispiel:
Leider kommt es vor, dass auf Blatt A die 1. + 3. Zeile 20 Pixel hoch sind und die 2. + 4. Zeile 25 Pixel hoch sein müssen.
Auf Blatt B sind nun die 1. + 3. Zeile zwar gleich hoch, aber die 2. Zeile 33 Pixel und die 4.. Zeile 48 Pixel.
Nun sollen sämtliche Zeilen betreffend der Höhe wie das Musterblatt aussehen.
Blatt A kopieren und dann die Werte aus Blatt B funktioniert leider auch nicht. --> zu umfangreich.
Vielleicht fällt ja jemandem noch etwas Geniales ein.
Antwort 6 von Saarbauer
Hallo,
win Vorschlag von mir zur Lösung des Problems.
Lege ein neues Blatt an kopiere die das alte Blatt und gehe auf das meue Blatt und mit "Bearbeiten""Inhalt einfügen""Formate" die Formatierung übertragen
Gruß
Helmut
win Vorschlag von mir zur Lösung des Problems.
Lege ein neues Blatt an kopiere die das alte Blatt und gehe auf das meue Blatt und mit "Bearbeiten""Inhalt einfügen""Formate" die Formatierung übertragen
Gruß
Helmut
Antwort 7 von Hazgalad
Habe mich mal in VBA versucht (und mit Excel2000 getestet):
Bitte vor gebrauch von fremden Code immer Sicherheitskopie(n) anlegen!
Sub zeilenhoehe()
Sheets(" Tabelle1").Select
Range("A1").Select
zanzahl = InputBox("Für wie viele Zeilen soll die jeweilige Höhe gemerkt werden?")
ReDim dummy(zanzahl) As Double
For i = 1 To zanzahl
dummy(i) = ActiveCell.Rows("1:1").EntireRow.RowHeight
ActiveCell.Offset(1, 0).Select
Next i
Sheets(" Tabelle2").Select
Range("A1").Select
For i = 1 To zanzahl
ActiveCell.Rows("1:1").EntireRow.RowHeight = dummy(i)
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Sub spaltenbreite()
Sheets(" Tabelle1").Select
Range("A1").Select
sanzahl = InputBox("Für wie viele Spalten soll die jeweilige Breite gemerkt werden?")
ReDim dummy(sanzahl) As Double
For i = 1 To sanzahl
dummy(i) = ActiveCell.Columns("A:A").EntireColumn.ColumnWidth
ActiveCell.Offset(0, 1).Select
Next i
Sheets(" Tabelle2").Select
Range("A1").Select
For i = 1 To sanzahl
ActiveCell.Columns("A:A").EntireColumn.ColumnWidth = dummy(i)
ActiveCell.Offset(0, 1).Select
Next i
End Sub
Dieses wäre dann in dem entsprechenden Dokument einzufügen.
-Mit Alt+F11 wechselt man von excel in den VBA editor
-der linke Bereich ist der Projekt Explorer
Standardmäig steht dort doetwas wie:
- VBAProjekt(dateiname_xy)
- Microsoft Excel Objekte
-Tabelle1(Tabellenname)
-Tabelle2(Tabellenname)
-Tabelle3(Tabellenname)
falls sich nach drücken von alt+F11 sowas nicht vorfindet lässt dieser sich auch mittels Strg+R anzeigen (oder Ansicht -> ProjektExplorer
Dann bitte einmal irgendwo im freien Bereich des Projektexplorer rechtsklicken und "Einfügen -> Modul" wählen.
Dann auf das neu erschienene Modul1 doppelklicken und den ganzen code von oben einfügen.
Es mag sein das dort schon mehrere Module bestehen je nach dem ob schon makros oder andere programmierte Funktionen vorhanden sind.
Steht der code im Modul drin sollten sich in Excel (man kann dorthin wieder mit Alt+F11 wechseln) unter Extras -> Makro-> Makros die beiden "spaltenbreite" und "zeilenhöhe" wiederfinden.
Die gefetteten Teile des Codes sollten auf dein Dokument angepasst werden. Wenn dein Musterblatt "Muster" anstatt "Tabelle1" heißt dann ändere es an den gefetteten Stellen um
Tabelle1 ist das Muster von dem die Höhen/Breiten gemerkt werden
Tabelle2 ist das Ziel das die gemerkten Werter übertragen bekommt.
Am besten das ganze vorher an einer neuen leeren excelmappe testen um zu sehen ob deine Excelversion das mitmacht. Bei fehlern bitte bescheid sagen ... komme erst abends zu haus immer an andere Office versionen um das abzuändern. Aber solang es kein Office 97 ist habe ich das wenig bedenken.
Ich hoffe es funktioniert so wie bei mir.
Bitte vor gebrauch von fremden Code immer Sicherheitskopie(n) anlegen!
Sub zeilenhoehe()
Sheets(" Tabelle1").Select
Range("A1").Select
zanzahl = InputBox("Für wie viele Zeilen soll die jeweilige Höhe gemerkt werden?")
ReDim dummy(zanzahl) As Double
For i = 1 To zanzahl
dummy(i) = ActiveCell.Rows("1:1").EntireRow.RowHeight
ActiveCell.Offset(1, 0).Select
Next i
Sheets(" Tabelle2").Select
Range("A1").Select
For i = 1 To zanzahl
ActiveCell.Rows("1:1").EntireRow.RowHeight = dummy(i)
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Sub spaltenbreite()
Sheets(" Tabelle1").Select
Range("A1").Select
sanzahl = InputBox("Für wie viele Spalten soll die jeweilige Breite gemerkt werden?")
ReDim dummy(sanzahl) As Double
For i = 1 To sanzahl
dummy(i) = ActiveCell.Columns("A:A").EntireColumn.ColumnWidth
ActiveCell.Offset(0, 1).Select
Next i
Sheets(" Tabelle2").Select
Range("A1").Select
For i = 1 To sanzahl
ActiveCell.Columns("A:A").EntireColumn.ColumnWidth = dummy(i)
ActiveCell.Offset(0, 1).Select
Next i
End Sub
Dieses wäre dann in dem entsprechenden Dokument einzufügen.
-Mit Alt+F11 wechselt man von excel in den VBA editor
-der linke Bereich ist der Projekt Explorer
Standardmäig steht dort doetwas wie:
- VBAProjekt(dateiname_xy)
- Microsoft Excel Objekte
-Tabelle1(Tabellenname)
-Tabelle2(Tabellenname)
-Tabelle3(Tabellenname)
falls sich nach drücken von alt+F11 sowas nicht vorfindet lässt dieser sich auch mittels Strg+R anzeigen (oder Ansicht -> ProjektExplorer
Dann bitte einmal irgendwo im freien Bereich des Projektexplorer rechtsklicken und "Einfügen -> Modul" wählen.
Dann auf das neu erschienene Modul1 doppelklicken und den ganzen code von oben einfügen.
Es mag sein das dort schon mehrere Module bestehen je nach dem ob schon makros oder andere programmierte Funktionen vorhanden sind.
Steht der code im Modul drin sollten sich in Excel (man kann dorthin wieder mit Alt+F11 wechseln) unter Extras -> Makro-> Makros die beiden "spaltenbreite" und "zeilenhöhe" wiederfinden.
Die gefetteten Teile des Codes sollten auf dein Dokument angepasst werden. Wenn dein Musterblatt "Muster" anstatt "Tabelle1" heißt dann ändere es an den gefetteten Stellen um
Tabelle1 ist das Muster von dem die Höhen/Breiten gemerkt werden
Tabelle2 ist das Ziel das die gemerkten Werter übertragen bekommt.
Am besten das ganze vorher an einer neuen leeren excelmappe testen um zu sehen ob deine Excelversion das mitmacht. Bei fehlern bitte bescheid sagen ... komme erst abends zu haus immer an andere Office versionen um das abzuändern. Aber solang es kein Office 97 ist habe ich das wenig bedenken.
Ich hoffe es funktioniert so wie bei mir.