Supportnet Computer
Planet of Tech

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

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

Antwort 3 von Saarbauer

Hallo,

ü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 .

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.

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

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.