Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1452to1456
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
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenbreite an vorgegebenen Wert anpassen

Spaltenbreite an vorgegebenen Wert anpassen
24.10.2015 09:26:31
Carsten
Hallo,
ich habe ja die Möglichkeit, die Breite einer Spalte auszulesen und in einer Zelle anzeigen zu lassen.
Ich suche nun nach einer Möglichkeit, dass Ganze umgekehrt zu machen. Ich möchte also die Breite einer Spalte in einer Zelle in Pixel angeben und die Spaltenbreite soll sich entsprechend anpassen.
Wie lässt sich das machen?
Gruß
Carsten

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenbreite an vorgegebenen Wert anpassen
24.10.2015 09:47:07
hary
Moin
So wie du ausliest nur zuweisen. 
Columns(1).ColumnWidth = Cells(1, 2) '--SpalteA breite = B1

gruss hary

AW: Spaltenbreite an vorgegebenen Wert anpassen
24.10.2015 09:56:10
Carsten
Hallo hary,
ausgelesen wird per Formel =ZELLE("breite";A1). Ich dachte eher an diese Art.
Oder kann man es so steuern, dass das Makro automatisch bei einer neuen Eingabe in einer bestimmten Zelle startet?

AW: Spaltenbreite an vorgegebenen Wert anpassen
24.10.2015 10:27:26
hary
Moin
So auslesen ja,zuweisen nein.
Mit VBA. Code in den Code der Tabelle.
Startet wenn C1 sich aendert und es eine Zahl ist. 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$C$1" Then
If IsNumeric(Target) Then
Columns(1).ColumnWidth = Cells(1, 3) '--SpalteA breite = B1
End If
End If
End Sub

gruss hary

Anzeige
AW: Spaltenbreite an vorgegebenen Wert anpassen
24.10.2015 16:28:42
Carsten
Perfekt, vielen Dank hary

175 Forumthreads zu ähnlichen Themen

Automatische Anpassung der Zeilenhöhe
eliewsam

Hallo Excel-Freunde,
gibt es in Excel die Möglichkeit, dass die Zeilenhöhe automatisch an den geschriebenen Text angepasst wird. Die Anpassung sollte sofort erfolgen, sobald der Text in eine Zelle eingegeben wurde und mit Enter bestätigt wurde. Ich kenne bislang nur die manuelle Ausführung...
04.03.2009 10:10:50
Thread-ID: 1056219
3 Beiträge
Anzeige
Zellbezüge im VBA Code automatisch anpassen
Jonathan

Hallo zusammen!
Für die unter Euch, die viel mit VBA arbeiten sicherlich eine "seltsame" Frage:
Ist es irgendwie möglich, Zellbezüge im VBA Code automatisch anzupassen, wenn sich in der Tabelle selbst was ändert (ähnlich wie bei eingegebenen Formeln). Füge ich also z.B. eine Spalte vor...
16.02.2010 01:11:25
Thread-ID: 1138768
4 Beiträge
Spaltenbreite = optimale Breite + X
Falk

Hallo zusammen,
ich würde gerne die Spaltenbreiten der Spalten in meiner Tabelle auf den Wert "optimale Breite" + X setzen, wobei "X" entweder im Code fest vorgegeben wird oder beim Start des Makros abgefragt wird.
Schön wäre es, wenn nur die aktuell markierten Spalten von der Breitenän...
28.04.2010 16:33:57
Thread-ID: 1154333
3 Beiträge
Anzeige
Spaltenbreite in Excel 2003 automatisch anpassen
Maximilian

Guten Tag!
Kann man in Excel 2003 die Spaltenbreite irgendwie automatisch anpassen? Alternativ per VBA Script? Hat da jemand einen Tipp?
13.12.2012 13:09:16
Thread-ID: 1290735
3 Beiträge
Wandernde Dropbox anpassen; Text in Zahl wandeln
Marcus

Hallo,
folgenden Code hat mir Rudi Mantaire zur Verfügung erstellt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngJahr As Range Set rngJahr = Intersect(Range("A1"), Target) If Not rngJahr Is Nothing Then varJahr = Range("A1").Value ComboBox1.Visible = False If Tar...
13.11.2014 14:52:13
Thread-ID: 1392208
10 Beiträge
Spaltenbreite an Zoomstufe anpassen
Michael

Hallo,
gibt es die Möglichkeit je nach Zoomstufe Excel zu veranlassen die Spaltenbreite automatisch anzupassen, so dass die Werte immer angezeigt werden und nicht ##### wenn zu wenig Platz vorhanden ist?
Gruß,
Michael
13.04.2015 10:22:27
Thread-ID: 1420460
2 Beiträge
Tabelle automatisch anpassen
Alex

Hallo zusammen,
ich habe folgendes Problem:
Ich habe 3 Arbeitsblätter in den ersten beiden sind Trainings und Seminare in der dritten Tabelle sollen diese zusammengefasst werden. (siehe Datei). Jeder Teilnehmer kann max. 4 Einheiten belegen.
Im angehängtem Beispiel steht bei Lisa i...
25.07.2015 10:26:30
Thread-ID: 1438438
3 Beiträge
Diagramm per VBA automatisch anpassen(formatieren)
Shayev

Hallo zusammen,
ich habe eine Frage, gibt es eine Möglichkeit per VBA ein Diagramm automatisch anzupassen, so dass die Datenbeschriftungen passen und die Achsen mit ihren Werten lesbar sind. Vielen Dank im Voraus.
Gruß Shayev
16.08.2016 10:22:50
Thread-ID: 1509477
5 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
2
4
3
2
5
2
9
1
2
4
2
16
3
6
1
3
4
2
5
2
3
3
3
2
2