vba excel automatische spaltenbreite von q5 bis s50

Question

Hallo guten Tag, bitte um ein vba excel automatische spaltenbreite von Spalte q5 bis s50. Es sind 5 Tabellenblätter. Danke

Answer 1

Hallo Jelena,

das geht nicht, denn (IMHO) kannst du nur komplette Spalten in der Breite verändern. Mehrere Blätter ist dann aber kein Problem.

Gunnar

Answer 2

Hallo Gunnar, schreib mir bitte ein code dafür. Die Spalte E, G, O und die Zeile 2 sind schreibgeschützt. Danke

Answer 3

Hi Jelena,

    Dim wksTab As Worksheet
    For Each wksTab In Worksheets
        wksTab.Unprotect
        wks.colums("Q:S").EntireColumn.AutoFit
        wksTab.Protect
    Next wksTab

Falls deine Tabellen mit einem Passwort geschützt sind dann musst du dies entsprechend ergänzen - nach diesem Prinzip:

        wksTab.Unprotect "DeinPasswort"

und

        wksTab.Protect "DeinPasswort"

Bis später, Karin

Answer 4

Hallo Karin, kann ich diesen code in "DieseArbeitsmappe" geben oder muss dieser code in jede Tabelle1, Tabelle2 usw. eingetragen werden. Danke

Answer 5

Hi Jelena,

der Code muss in ein eigenes Makro in einem Standardmudul. Er wird also nicht automatisch ausgeführt sondern muss über einen CommandButton im Tabellenblatt oder eine Tastenkombination oder direkt im VBA-Editor gestartet werden.

Bis später, Karin

Answer 6

Hallo Karin, wäre es möglich dass der code automatisch ausgeführt wird, z.B. 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ThisWorkbook.Names.Add "AktiveZelle", Target(1) 'aktive Zeile Farbe
Dim wksTab As Worksheet
    For Each wksTab In Worksheets
        wksTab.Unprotect ("pw")
        wks.colums("Q:S").EntireColumn.AutoFit
        wksTab.Protect ("pw")
    Next wksTab
End Sub

oder gibt es eine bessere möglichkeit denn die Breite soll nach Eingabe breiter werden und nach dem entfernen der Daten wieder zurück. Danke

Answer 7

Hi Jelena, dann wohl eher so:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Not Intersect(Target, Sh.Range("Q:S")) Is Nothing Then
    Sh.Unprotect "PW"
    If Target.Cells(1) <> "" Then Target.EntireColumn.AutoFit Else Target.EntireColumn.ColumnWidth = Sh.Columns(Sh.Columns.Count).ColumnWidth
    Sh.Protect "PW"
  End If
End Sub

Der Code gehört in das Modul "DieseArbeitsmappe" und funktioniert mir allen Tabellen gleichermaßen.

PS: Bitte stelle deine Fragen künftig so, dass schon am Anfang klar ist, was du willst, sonst machen sich die Helfer unnötige Arbeit mit Codes die du gar nicht brauchst.

Gruß Mr. K.

Answer 8

Hallo Mr. K. Entschuldigung werde es versuchen bin leider nicht so gut beim Erklären. Es ist jedenfalls, was ich meinte. Vielen Dank