Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
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
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenbreite per VBA geht nicht mehr

Spaltenbreite per VBA geht nicht mehr
22.12.2022 17:58:33
Holger
Hallo zusammen,
ich möchte die Spaltenbreite per VBA setzen, leider funktioniert das nicht obwohl es schonmal ging und ich finde den Fehler nicht.
Hat jemand ne Idee oder Hinweis?
Ich lese die Spalten aus einem anderen Tabellenblatt aus und gib die gewünschten breiten in die Variablen SpalteA SpalteB usw.
Workbooks(1).Activate
Application.ScreenUpdating = True
' Werte aus den Variblen setzen = Tabelle formatieren
'columns("A").ColumnWidth =
Columns("A:A").ColumnWidth = SpalteA
Columns("B:B").ColumnWidth = SpalteB
Columns("C").ColumnWidth = SpalteC
Columns("D").ColumnWidth = SpalteD
Columns("E").ColumnWidth = SpalteE
Columns("F").ColumnWidth = SpalteF
Columns("G").ColumnWidth = SpalteG
VG
Holger

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spaltenbreite per VBA geht nicht mehr
22.12.2022 18:02:48
onur
So ein paar aus dem Zusammenhang gerissene Codefetzen sind nichtssagend. Wo ist denn der Rest des Codes?
AW: Spaltenbreite per VBA geht nicht mehr
22.12.2022 18:10:54
Holger
Ich frag mal andersrum was kann verhindern das ein Columns("A:A").ColumnWidth = 25
nicht durchgeführt wird? Hab ich gerade ausprobiert und er macht nix, auch keine Fehlermeldung!
VG
Holger
AW: Spaltenbreite per VBA geht nicht mehr
22.12.2022 18:18:53
onur
" was kann verhindern das ein Columns("A:A").ColumnWidth = 25 nicht durchgeführt wird?" ? Doppelte Verneinung ?
Dein Code, den du nicht vopllständig gepostet hast.
AW: Spaltenbreite per VBA geht nicht mehr
22.12.2022 18:24:37
Holger
Hier Bitteschön, ich dachte es geht so...

Sub Spaltenbreite_Festlegen()
' In den spalten A bis U 2 stehen die Variablen für die spaltenbreiten drin.
Workbooks(2).Activate
' Lesen und füllen der Variblen
SpalteA = Worksheets("Holgers_Change_Tool").Range("A2").Value
SpalteB = Worksheets("Holgers_Change_Tool").Range("B2").Value
SpalteC = Worksheets("Holgers_Change_Tool").Range("C2").Value
SpalteD = Worksheets("Holgers_Change_Tool").Range("D2").Value
SpalteE = Worksheets("Holgers_Change_Tool").Range("E2").Value
SpalteF = Worksheets("Holgers_Change_Tool").Range("F2").Value
SpalteG = Worksheets("Holgers_Change_Tool").Range("G2").Value
SpalteH = Worksheets("Holgers_Change_Tool").Range("H2").Value
SpalteI = Worksheets("Holgers_Change_Tool").Range("I2").Value
SpalteJ = Worksheets("Holgers_Change_Tool").Range("J2").Value
SpalteK = Worksheets("Holgers_Change_Tool").Range("K2").Value
SpalteL = Worksheets("Holgers_Change_Tool").Range("L2").Value
SpalteM = Worksheets("Holgers_Change_Tool").Range("M2").Value
SpalteN = Worksheets("Holgers_Change_Tool").Range("N2").Value
SpalteO = Worksheets("Holgers_Change_Tool").Range("O2").Value
SpalteP = Worksheets("Holgers_Change_Tool").Range("P2").Value
SpalteQ = Worksheets("Holgers_Change_Tool").Range("Q2").Value
SpalteR = Worksheets("Holgers_Change_Tool").Range("R2").Value
SpalteS = Worksheets("Holgers_Change_Tool").Range("S2").Value
SpalteT = Worksheets("Holgers_Change_Tool").Range("T2").Value
SpalteU = Worksheets("Holgers_Change_Tool").Range("U2").Value
Workbooks(1).Activate
Application.ScreenUpdating = True
' Werte aus den Variblen setzen = Tabelle formatieren
Columns("A:A").ColumnWidth = 25
Columns("B:B").ColumnWidth = SpalteB
Columns("C").ColumnWidth = SpalteC
Columns("D").ColumnWidth = SpalteD
Columns("E").ColumnWidth = SpalteE
Columns("F").ColumnWidth = SpalteF
Columns("G").ColumnWidth = SpalteG
Columns("H").ColumnWidth = SpalteH
Columns("I").ColumnWidth = SpalteI
Columns("J").ColumnWidth = SpalteJ
Columns("K").ColumnWidth = SpalteK
Columns("L").ColumnWidth = SpalteL
Columns("M").ColumnWidth = SpalteM
Columns("N").ColumnWidth = SpalteN
Columns("O").ColumnWidth = SpalteO
Columns("P").ColumnWidth = SpalteP
Columns("Q").ColumnWidth = SpalteQ
Columns("R").ColumnWidth = SpalteR
Columns("S").ColumnWidth = SpalteS
Columns("T").ColumnWidth = SpalteT
Columns("U").ColumnWidth = SpalteU
'Sheets("Page 1").Select
Workbooks(1).Activate
End 


Sub
Anzeige
AW: Spaltenbreite per VBA geht nicht mehr
22.12.2022 18:31:59
onur
Ich sehe leider noch nix. Poste bitte mal eine (Beispiels-) Datei mit dem selben Problem (von mir aus mit nur einer Spalte, die eingestellt wird) .
AW: Spaltenbreite per VBA geht nicht mehr
22.12.2022 23:54:54
Piet
Hallo
mir faellt im Code etwas auf, ich weiss aber nicht ob das eine Rolle spielt?
Workbooks(1).Activate ? - Hier wird kein Sheet aktiviert! Welche ist gerade aktiv?
Erst am Ende des Codes steht - 'Sheets("Page 1").Select. Ist dieses Sheet gemeint?
Ich weiss auch nicht ob du die Variablen als Publik deklariert hast? Ob die Werte evtl. verloren gehen?
Ich biete dir mal meinen Code an. der braucht keine Variablen. Aber die richtige Ziel Sheet Angabe!!
Frage: - im Zielblatt ist kein Blattschutz aktiv? - Würde mich freuen wenn es mit dem Code Problemlos klappt.
Frohe Weihnachten und ein glückliches neues Jahr.
mfg Piet
  • 
Sub Spalten_einstellen()
Dim Ziel As Object, j As Integer
Set Ziel = Workbooks(1).Worksheets("Page 1")
With Workbooks(2).Worksheets("Holgers_Change_Tool")
Ziel.Columns(1).ColumnWidth = 25
For j = 2 To 21  'Schleife für Spalte B bis U
Ziel.Columns(j).ColumnWidth = .Cells(2, j)
Next j
End With
End Sub

    • Anzeige
    AW: Spaltenbreite per VBA geht nicht mehr
    23.12.2022 18:42:44
    Holger 
    
Sub test2()
'Hier werden die Werten in die Varibalen eingelesen
Worksheets("Holgers_Change_Tool").Activate
SpalteA = Worksheets("Holgers_Change_Tool").Range("A2").Value
SpalteB = Worksheets("Holgers_Change_Tool").Range("B2").Value
SpalteC = Worksheets("Holgers_Change_Tool").Range("C2").Value
SpalteD = Worksheets("Holgers_Change_Tool").Range("D2").Value
SpalteE = Worksheets("Holgers_Change_Tool").Range("E2").Value
'Hier sollen die Spalten Auf die gewünschte Breite gebracht werden
' Variblen sind gefüllt aber verbreitert wird nix!  Warum nur? kein Blattschutz aktiv
Worksheets("Page 1").Activate
Columns("A").ColumnWidth = 30
Columns("A:A").ColumnWidth = 25
Columns("B:B").ColumnWidth = SpalteB
Columns("C").ColumnWidth = SpalteC
Columns("D").ColumnWidth = SpalteD
Columns("E").ColumnWidth = SpalteE
End Sub

    Anzeige
    AW: Spaltenbreite per VBA geht nicht mehr
    22.12.2022 18:25:31
    oraculix
    Hi bei mir funktioniert das so!
    Hoffe es hilft Dir weiter.
    'Spaltenbreite einstellen
    Columns(1).ColumnWidth = 37.5 'A Spalte
    Columns(2).ColumnWidth = 41.91 'B Spalte
    Columns(3).ColumnWidth = 58.91 'C Spalte , weitere folge ist ja dann Logisch.
    Gruß
    Oraculix
    AW: Spaltenbreite per VBA geht nicht mehr
    23.12.2022 20:20:40
    Holger
    sebst wenn ich nur
    Columns(1).ColumnWidth = 37.5 'A Spalte
    geht das wenn ich auf auf dem sheet page1 bin.
    wenn ich auf dem anderen sheet bin geht das nicht
    obwohl ein Worksheets("Page 1").Activate da ist. Ich verstehe gerade die Welt nicht mehr
    AW: Spaltenbreite per VBA geht nicht mehr
    23.12.2022 20:27:07
    onur
    Und warum nicht:
    
Worksheets("Page 1").Columns(1).ColumnWidth  = 37.5 'A Spalte
    ?
    Anzeige
    AW: Spaltenbreite per VBA geht nicht mehr
    23.12.2022 20:32:55
    Holger
    Aua warum bin ich nicht selbst drauf gekommen?
    Vollqualifiziert geht es!
    Herzlichen Dank!
    VG Holger
    Gerne !
    23.12.2022 20:33:44
    onur

    320 Forumthreads zu ähnlichen Themen

    Kann Zeilen, die DA SIND, nicht mehr einblenden!!!
    Stephan

    Liebe Liste,
    habe hier ein Problem, das mich fast verzweifeln läßt!
    Ich habe 4 Zeilen am Anfang einer Datei, die sich partout nicht mehr einblenden lassen! Ich kann dort mit den Pfeiltasten der Tastatur hinlaufen, sehe oben in der Wertezeile auch den Wert der Zellen, in denen Inhalt ste...
    25.01.2009 12:52:00
    Thread-ID: 1043550
    11 Beiträge
    Anzeige
    wenn Bild hinterlegt, geht nichts mehr (Userform)
    Reinhard

    Hallo zusammen
    ich habe folgende Userform Die Datei https://www.herber.de/bbs/user/61474.xls wurde aus Datenschutzgründen gelöscht
    diese funktioniert einwandfrei!
    wenn ich aber als Hintergrund ein Image (Anzeige) hinterlege, funktioniert nichts mehr. Wieso ist das so?
    kann man...
    29.04.2009 08:10:29
    Thread-ID: 1071763
    4 Beiträge
    PrintOut copies:= geht nicht mehr
    Jupp

    Hallo.
    Ich habe vor längerer Zeit ein größeres Makro geschrieben, bei dem unter anderem bei einem Button-Klick entsprechende Seite gedruckt werden.
    Meine User rufen das Makro aus einer xls via Terminal Server auf. Bisher war dies ein W2k3x86-Server mit Excel 2003 SP2. Nun habe ich neue...
    11.05.2009 12:33:18
    Thread-ID: 1074308
    3 Beiträge
    Anzeige
    Kann Beiträge nicht mehr bestätigen
    NoNet

    Hallo @alle,
    dies ist nur ein Test :
    Ich kann meine Beiträge plötzlich nicht mehr absenden : Nach der Vorschau fehlt der "Absenden"-Button :-((
    Gruß, NoNet
    12.06.2009 21:33:11
    Thread-ID: 1081185
    12 Beiträge
    Dropdown geht nicht mehr
    stephan.schwander@wander.ch

    Guten Tag zusammen,
    in einer Tabelle von mir geht auf eimal der zellendropdown (Spalte G und H) nicht mehr.
    Ich habe überhaupt keine Ahnung an was dies liegen kann?
    Die Tabelle im Anhang ist ein Auszug einer komplexen Auswertung.
    https://www.herber.de/bbs/user/62837.zip
    Bes...
    30.06.2009 13:26:59
    Thread-ID: 1085347
    4 Beiträge
    Solver - Makro aufgezeichnet, lässt sich nicht abs
    u_hoernchen

    habe über Makro Aufzeichnen die Benutzung des Solvers aufgezeichnet. Der Code sieht dann aus wie folgt.
    SolverOk SetCell:="$K$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$16"
    SolverSolve
    Beim Abspielen hängt er sich dann allerdings bei "SolverOK" auf und sagt "Sub oder Function n...
    20.07.2009 13:09:09
    Thread-ID: 1089960
    3 Beiträge
    TreeView lange Einträge - Mausklick geht nicht
    Alfons

    Hallo,
    in einem TreeView stehen einige Dateinamen die länger sind als das TreeView breit ist
    und deshalb rechts nicht komplett angezeigt werden.
    Bei Mausklick soll die Datei im WebBrowser1 angezeigt werden.
    Das geht bei den langen Dateinamen nur dann wenn ich erst mit dem horizo...
    28.07.2009 10:37:09
    Thread-ID: 1091606
    2 Beiträge
    Datei lässt sich nicht öffnen
    einfachf

    Hallo Zusammen ich schreibe gerade an einem Macro.
    Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
    Leider funzt das nicht und ich weiß nicht warum.
    Hier mein Code.
    Dim EX As Excel.Application
    Dim WB As Workbook
    Dim WS As Worksheet
    Set EX = Cr...
    06.08.2009 12:12:10
    Thread-ID: 1094009
    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
    10
    5
    3
    2
    5
    11
    3
    2
    1
    2
    3
    4
    24
    2
    5
    5
    9
    1
    1
    4
    7
    1
    5
    19
    7