Ich habe folgendes Problem ich hab eine Bestandliste und die Rohdaten hole ich mir per Datei Import vom Server.
In meiner Bestandsliste wollte ich eine Zellenhöhe von 20 haben, aber sobald ich den Datei Import mache ändert sich die Zeilenhöhe auf 15.
Kannst man das irgendwo fest einstellen,das es sich nicht immer wieder verändert ?
Hallo,
du kannst mal in den Excel-Optionen schauen, wenn Du dort die Zeilenhöhe auf 20 festlegst, ob es sich dann auch verändert.
Wenn ja, kann dies aus dem Exportprogramm mitgegeben werden??
Hallo, :19:
PowerQuery lädt die Daten als Tabelle (
ListObject) - da wird die Zeilenhöhe auf den Standard gesetzt und die Spaltenbreite auf "
AutoFit". Wenn du das veränderst, stellt Excel das beim "
Aktualisieren" wieder zurück. :21:
Ich würde hier mit einem Makro arbeiten. Wie in meinem
Beispiel im anderen Thema. Dort habe ich die Spaltenbreite eingestellt.
Die Zeilenhöhe kannst du so einstellen: :21:
Für Zeile 1 bis 5 in Tabelle1...
Code:
With ThisWorkbook.Worksheets("Tabelle1")
Rows("1:5").RowHeight = 20
End With
Für alle belegten Zeilen bezogen auf Spalte A...
Code:
With ThisWorkbook.Worksheets("Tabelle1")
.Rows("1:" & .Cells(.Rows.Count, 1).End(xlUp).Row).RowHeight = 20
End With
Den Standard kannst du schnell wieder herstellen...
Code:
With ThisWorkbook.Worksheets("Tabelle1")
.Cells.UseStandardHeight = True
.Cells.UseStandardWidth = True
End With
Mit VBA bist du einfach flexibler. :21:
Danke
wie muß der Code aussehen ab Spalte B und ab Zeile 3-1000 ?? , weil Spalte A ist leer
Hallo, :19:
entweder so...
Code:
With ThisWorkbook.Worksheets("Tabelle1")
.Rows("3:1000").RowHeight = 20
End With
Oder so für Spalte B, wenn es nicht immer tausend Zeilen sind...
Code:
With ThisWorkbook.Worksheets("Tabelle1")
.Rows("3:" & .Cells(.Rows.Count, 2).End(xlUp).Row).RowHeight = 20
End With
Den Tabellenblattnamen musst du gegebenenfalls anpassen.
irgendwie bekomme ich das nicht hin...siehe screenshot
Hallo, :19:
Tabellenblattname passt nicht. :21:
Sorry hab von VBA echt keine Ahnung, wie muß der Tabellenname den lauten ? Ich brauche die liste Tabelle1(Bestandinformation)
hab alles erdenkliche ausprobiert, aber der Fehler kommt immer wieder egal was ich da eingebe :20:
Hallo, :19:
du musst es in ein
Modul und dort in
eine
Sub schreiben/kopieren, dann den
Tabellenblattnamen entsprechend
anpassen: :21:
Code:
Option Explicit
' Entweder
Public Sub Main()
With ThisWorkbook.Worksheets("Bestandinformation")
.Rows("3:1000").RowHeight = 20
End With
End Sub
' Oder
Public Sub Main_1()
With ThisWorkbook.Worksheets("Bestandinformation")
.Rows("3:" & .Cells(.Rows.Count, 2).End(xlUp).Row).RowHeight = 20
End With
End Sub
Die Datei
muss dann als "
Dateiname.xlsb" pder "
Dateiname.xlsm" gespeichert werden, damit der Code erhalten bleibt.
jetzt bekomme ich zwar keine Fehlermeldungen mehr ,aber verändern tut sich da bei mir auch nichts. Die Zeilen bleiben weiter so klein :22: egal ob der obere oder untere Code