Office: DB-Abfrage kann nicht sofort verarbeitet werden?!

Hallo Forumgemeinde,

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:

Code:

Sub Makro1()

    With ActiveSheet.QueryTables.Add( ... )

        .Name = "..."
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery = False
        
            Sheets("Ausfüllen").Select
            Range("A1").Select
            


    End With

        Application.DisplayAlerts = False
    
        Sheets("Daten").Select
        Range("J8").Select
        
        Selection.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

Hab unwichtige Sachen raus genommen!

Für ein wenig Hilfe wär ich sehr dankbar!

Gruß

 

Hallo!

Warum packst du die beiden Codes dann nicht zusammen in einen?

 

Hi!

erstmal danke für die schnelle Antwort. Was ich evtl noch sagen sollte: ich bin ein ziemlicher vb anfänger.

Also ich weiß nicht, wie ich die beides Sachen (Abfrage u. Trennen) so anlegen kann, dass es nicht zu dieser Fehlermeldung kommt.
Im Prinzip müsste es ja so gehen: Abfrage läuft, daten werden in excel geschrieben, ende der funktion (with) und dann läuft das trennen mit 'selection....' usw.

edit: die funktionEN sind ja in einem marko... schau bitte noch mal auf den Code

gruß,
raitsch

 

Hallo!

Ich kann's hier natürlich leider nicht testen, aber der zwischenzeitliche Wechsel auf das Blatt "Ausfüllen" macht erstmal keinen Sinn, oder?
Was passiert denn, wenn du den raus lässt?

Code:

Sub Makro1()

    With ActiveSheet.QueryTables.Add( ... )

        .Name = "..."
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery = False
    End With

        Application.DisplayAlerts = False
          
        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 

Bezieht sich deine Abfrage nur auf J8?

 

Der zwischenzeitliche Wechsel ist Schwachsinnig. Diesen hatte ich nur mal zu Testzwecken reingebaut.

Bei Deinem Code ist im Prinzip ja nichts anders als bei meinem - also es funktioniert genauso wenig. Ich glaube es ist einfach ein Denkfehler; werden die Daten vielleicht erst beim "End Sub" nach Excel 'übergeben'?!

edit: Also es werden mehr Daten abgefragt, aber für das Trennen ist nur J8 wichtig! ;-)

 

Ich kenne mich mit Datenbankabfragen nicht wirklich aus, aber wenn du recht hast und die Daten erst nach "End Sub" übergeben werden, dann trenn doch einfach die Codes und lasse sie dann gemeinsam aus einem weiteren Makro abrufen:

Code:

Sub Makro1()
    'Hier die Daten einlesen
End Sub

Sub Makro2()
    'Hier "Text in Spalten"
End Sub

Sub Makro3()
    Call Makro1
    Call Makro2
End Sub

 

so ähnlich habe ich das gerade eben auch versucht (mit nem call on makro 1 (abfrage) auf makro 2 (trennen).

Das Problem ist, dass in Excel noch drin steht "bla bla empfange daten" und dann schon wieder das makro2 laufen will... mit einer wait funktion ging das ganze auch nicht. Ich glaub da ist immer noch ein Denkfehler drin. Der Ansatz mit verschiedenen Makros ist gut aber der führt die dann ja glaube ich auch direkt nacheinander aus, ohne das marko1 schon daten in excel abspeichern konnte.

ein lösungsansatz wäre noch eine IF-anweisung zur überprüfung ob die zelle einen inhalt hat, und darauf dann das trennen-makro auszuführen. ich glaub das wird aber auch nichts.. die werden einfach nicht komplett nacheinander ausgeführt.

edit: wenn ich jetzt MARKO3 (der springt ja dann weiter die einzelnen makros durch) komplett in einzelschritten durchgehe, dann funkrionierts evtl doch noch mal einen wait in marko2 setzten ...


edi2: also das sind jetzt meine makros:

Makro1

Code:

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

makro2:

Code:

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:

Code:

Sub Makro3()

    Call Makro1
    Call Makro2

End Sub

 

Ich habe dir eine PN geschickt.

 

Hab den Fehler gefunden... man man man... die einfachten Sachen sind doch die, auf die man nie kommt...

Der .BackgroundQuery musste auf FALSE und der .Refresh BackgroundQuery auf TRUE stehen...

Gruß,
raitsch