Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte und Zeile per Zelleintrag skalieren

Spalte und Zeile per Zelleintrag skalieren
10.04.2013 10:33:17
Peter
Hallo zusammen,
ich bräuchte mal eure Hilfe. Ich habe mal bei einem Kollegen eine Datei gesehen, bei der er per Zelleintrag die Zeilenhöhe und Spaltenbreite einstellen konnte; angeblich ohne VBA. Leider ist der Kollege gegangen und ich kann ihn nicht mehr fragen, wie das funktioniert.
Kann mir da jemand bitte auf die Sprünge helfen, wie das funktioniert und wie ich das nachbauen kann?
Vielen Dank vorab und beste Grüße,
Peter

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte und Zeile per Zelleintrag skalieren
10.04.2013 10:54:35
Klaus
angeblich ohne VBA
Hallo Peter,
ohne VBA aber nicht vollautomatisch! Mindestens auf den Button "optimale Zeilenhöhe" muss er clicken.
Dann ist das vorstellbar, indem ich zum Beispiel eine Zelle mit Zeilenumbruch formatiere und mit der Formel "=WIEDERHOLEN("x ";A1) fülle. Jetzt kann ich in A1 einen Wert eingeben, clicke auf "optimale Zeilenhöhe" und die Zeile wird der Menge der x-e angepasst - mit ein bisschen experimentieren bekommt man da sicher eine sinnvollere Skalierung hin.
Aber nur durch einen Zelleneintrag, das kann ich mir nicht vorstellen. Leider gibt es ja keine Zellenoption "immer automatisch anpassen".
MIT Vba währ das freilich sehr einfach.
Grüße,
Klaus M.vdT.

Anzeige
AW: Spalte und Zeile per Zelleintrag skalieren
10.04.2013 10:57:09
Peter
Hallo Klaus,
danke für die Antwort.
Wie würde das denn mit VBA funktionieren? Gäbe es da die Möglichkeit, die Höhe und Breite nach einer Eingabe genau einzustellen?
Danke + Gruß,
Peter

AW: Spalte und Zeile per Zelleintrag skalieren
10.04.2013 10:57:57
Peter
ich lasse die Frage noch mal offen!
Danke!

AW: Spalte und Zeile per Zelleintrag skalieren
10.04.2013 11:39:31
Peter
Hallo Klaus,
besten Dank. Funktioniert super. Zwei Fragen hätte ich aber noch.
1. Wie stelle ich ein, dass ich die Pixelzahl eingeben kann?
2. Wie kann ich den Code ändern, dass ich in Spalte A die jeweils pro Zelle die Zeilenhöhe einstellen kann, bzw. in Zeile 1 jeweils die Spaltenbreite? ich habe es hiermit versucht, aber es funktioniert nicht... 

ActiveCell.EntireColumn.ColumnWidth = Range(ActiveCell.Column, Rows(1)).Value
ActiveCell.EntireRow.RowHeight = Range(Column(1), ActiveCell.Rows).Value
Danke nochmal!
Peter

Anzeige
AW: Spalte und Zeile per Zelleintrag skalieren
10.04.2013 11:45:14
Klaus
Hi,
zu 1): Ich weiss gar nicht ob das direkt geht. Du kannst aber Zeilenhöhe in Pixel umrechen und andersrum, hier mal das erste google-Ergebniss dazu:
http://www.gutefrage.net/frage/excel-tabelle-spaltenbreite-und-zeilenhoehe
zu 2): du willst in JEDE Zeile und JEDE Spalte die Höhe/Breite schreiben? Zeile 1 und Spalte A sind dann logischerweise nicht greifbar. Ich bau mal was.
Grüße,
Klaus M.vdT.

AW: Spalte und Zeile per Zelleintrag skalieren
10.04.2013 11:54:14
Klaus
Hatta:
über die Umrechnung Einheiten / Pixel bin ich mir nicht sicher, musst du noch mal recherchieren ob *0,75 hinhaut.
Spalte A und Zeile 1 sind komplett mit gültigen Werten gefüllt. Keine Fehlerbehandlung! Steht in F1 zB als Breite "-7" oder "Div!0" oder "Hund", schmiert das Makro einfach nur ab.
Sub SpaltenZeilen()
Dim lRow As Long
Dim iCol As Integer
Dim r As Range
Dim dPix As Double
'ein Pixel = 0.75 Excel-Einheiten (?)
dPix = 0.75
With ActiveSheet
lRow = .Cells(.Rows.Count, 1).End(xlUp).Row
iCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
For Each r In .Range(.Cells(2, 1), .Cells(lRow, 1))
r.EntireRow.RowHeight = .Cells(r.Row, 1).Value * dPix
Next r
For Each r In .Range(.Cells(1, 2), .Cells(1, iCol))
r.EntireColumn.ColumnWidth = .Cells(1, r.Column).Value * dPix
Next r
End With
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: Spalte und Zeile per Zelleintrag skalieren
10.04.2013 11:54:45
Peter
Hi Klaus,
1) danke für den Tipp
2) ja, theoretisch jede Zeile/Spalte. Im Endeffekt werden es aber nicht 1 Mio, sonder nur ein paar. Ich bastel eine Vorlage für Powerpoint-Folien und will immer die gleichen Maße für die Folien haben - unabhängig von der Anzahl der Zeilen oder Spalte pro Folie
Gruß,
Peter

AW: gleichzeitig
10.04.2013 13:03:35
Peter
Hallo Klaus,
vielen Dank, bei mir funktioniert das aber nicht.
Gibt es da nicht einen Weg, das ganze nur für die aktive Zelle einzustellen, bspw. schreibe ich in A14 eine 30 und die Zeile 14 wird auf 30 Einheiten skaliert? Das gleich dann in Zeile 1: ich schreibe eine 20 ein G1 und die Spalte G wird auf 20 Einheiten skaliert?
Theoretisch soll es dann aber für die komplette Spalte 1 bzw. Zeile 1 funktionieren...
Vielen Dank!
Peter

Anzeige
AW: gleichzeitig
10.04.2013 13:06:47
Klaus
Das müsste dann so gehen: 
Sub SpaltenZeilen()
Dim dPix As Double
'ein Pixel = 0.75 Excel-Einheiten (?)
dPix = 0.75
With ActiveCell
.EntireRow.RowHeight = Cells(ActiveCell.Row, 1).Value * dPix
.EntireColumn.ColumnWidth = Cells(1, ActiveCell.Column).Value * dPix
End With
End Sub
das ganze rufst du bei Worksheet_Change, per Button, per Shortcut oder wie immer du wilst auf.
Grüße,
Klaus M.vdT.

AW: gleichzeitig
10.04.2013 13:18:03
Peter
perfekt, so habe ich es mir vorgestellt! Danke dir!
Beste Grüße,
Peter

Danke für die Rückmeldung! owT.
10.04.2013 13:27:42
Klaus
.

312 Forumthreads zu ähnlichen Themen

Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Anzeige
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Anzeige
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
Zeile und Spalte markieren
Karsten

Hallo Excel Freunde,
ich habe die Adresse von 2 Zellen (ZeileA, SpalteA) und (ZeileB, SpalteB) und möchte den gesmten Bereich markieren und dann kopieren.
Habe folgendes probiert:
Set Bereich1 = Rows("ZeileA:ZeileB")
Set Bereich2 = Columns("SpalteA:SpalteB")
Set Gesamtb = Un...
18.12.2008 15:54:47
Thread-ID: 1033909
5 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
16
6
10
3
2
4
7
2
2
4
8
4
3
13
1
5
7
1
11
12
6
11
6
10