Anfängerproblem aktive Tabelle
07.01.2021 09:20:39
Bo
ich versuch mich am Einstieg in die VBA Welt, habe mit auch einen entsprechenden Wälzer zugelegt, komme aber gerade nicht weiter. Ein vermutlich banales Problem.
Ich speichere meine Makros in der persönlichen Makromappe PERSONAL.XLSB
Damit bin ich bislang gut gefahren, im Regelfall habe ich den Makrorekorder benutzt und dann hier und da angepasst.
Nun wollte ich zum ersten mal ein Makro "richtig" schreiben. Es geht ganz einfach darum in einer anderen Exceldatei/-tabelle die Spaltenbreiten anzupassen. Mir gelingt jedoch nicht diese Datei anzusprechen. Wenn ich das Makro ausführe passiert augenscheinlich nichts, wenn ich aber die ausgeblendete PERSONAL.XLSB öffne, sehe ich, dass die Spaltenanpassungen dort vorgenommen wurden.
Mein Code sieht wie folgt aus:
Sub RichtigesMakro()
Dim wkbQuelle As Workbook
Set wkbQuelle = Workbooks("AndereDatei.xlsx")
' Spaltenbreite einstellen
With Tabelle1
.Range("A:A").EntireColumn.ColumnWidth = 11.86
.Range("B:B").EntireColumn.ColumnWidth = 3.29
.Range("C:C").EntireColumn.ColumnWidth = 11
.Range("D:D").EntireColumn.ColumnWidth = 48.57
.Range("E:E").EntireColumn.ColumnWidth = 5.14
.Range("F:F").EntireColumn.ColumnWidth = 4.57
.Range("G:G").EntireColumn.ColumnWidth = 13.43
.Range("H:H").EntireColumn.ColumnWidth = 10.29
.Range("I:I").EntireColumn.ColumnWidth = 10.71
.Range("J:K").EntireColumn.ColumnWidth = 2.57
.Range("L:L").EntireColumn.ColumnWidth = 12.57
.Range("M:M").EntireColumn.ColumnWidth = 3.29
.Range("N:N").EntireColumn.ColumnWidth = 3.57
.Range("O:O").EntireColumn.ColumnWidth = 14.86
.Range("P:P").EntireColumn.ColumnWidth = 3.71
.Range("Q:Q").EntireColumn.ColumnWidth = 16.57
End With
End Sub