Ich ersuche um Hilfe bezüglich des u.a. Codes. Ich hole seit Jahren mit dem u.a. Code Kurse in meine Excel Datei und dann werden diese in diverse Zeilen automatisch (mit z.B. =C110) kopiert. Seit einiger Zeit sind jedoch bei einigen Zeilen die Anzeige der Preise im Kommabereich dreistellig (z.B. 1.149,000). Ich kann allerdings diese nicht formatieren, damit diese im Kommabereich 2-stellig angezeigt werden. Kann mir bitte, bitte, da wer helfen.
Danke im voraus
chris58
Sub Kurseholen()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://kursinfo.bankaustria.at/IBT-BA-HP/currency/rates/others.html", _
Destination:=Range("A100"))
.Name = "others_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Columns("A:A").ColumnWidth = 26
Columns("B:B").ColumnWidth = 19
Columns("C:C").ColumnWidth = 14
Columns("D:D").ColumnWidth = 12
End Sub