DB-Abfrage kann nicht sofort verarbeitet werden?!
23.11.2007 08:53:00
Sucher
Ich rufe Daten aus einer DB per Makro ab und möchte einen Teil dieser Daten direkt per Funktion trennen (Trennzeichen: "-").
Das Problem ist nun, dass die Daten zwar schon abgerufen sind, aber nicht nicht in Excel "stehen" wenn die 'Trennen'-Funktion eingreifen will; d.h. es kommt die Fehlermeldung: "Es wurden keine Daten zur Analyse markiert."
Mit 2 Makros wäre es leicht realisierbar, aber ich möchte die Abfrage und Weiterverarbeitung gerne auf nur einem Button liegen haben.
Mein bisheriger Code:
Makro1 (Abfrage):
Sub Makro1()
Sheets("Daten").Select
Range("A7:AO55").Select
Selection.ClearContents
Selection.QueryTable.Delete
Range("A7").Select
With ActiveSheet.QueryTables.Add(x)
.Name = "x"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery = False
End With
End Sub
Marko2 (Trennen):
Sub Makro2()
Application.DisplayAlerts = False
Sheets("Daten").Select
Range("J8").TextToColumns Destination:=Range("J2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Sheets("Ausfüllen").Select
End Sub
Makro3 (Call):
Sub Makro3()
Call Makro1
Call Makro2
End Sub
Wenn in Einzelschritten durchgegangen wird funktioniert es - leider aber nicht automatisch :(
Bitte um Hilfe!
Gruß