title image


Smiley Überprüfen, ob markierte Zelle(n) Querytable(s) enthalten
Hallo zusammen,



ich hab folgenden Code zum Aktualisieren von Querytables innerhalb eines durch den User markierten Zellbereichs (Markierung nur von oben nach unten, innerhalb Spalte 5, alle anderen Spalten sind gesperrt und Blattschutz aktiv):



'Ausgewählte Zellen aktualisieren

Zeile = ActiveCell.Row

AnzahlZeilen = Selection.Rows.Count

LetzteZeile = Zeile + AnzahlZeilen



Do

Cells(Zeile, 5).Select

Selection.QueryTable.Refresh BackgroundQuery:=False

Zeile = Zeile + 1

Loop Until Zeile = LetzteZeile



Wie kann ich hierbei eine IF-Klausel einfügen, die überprüft, ob die markierte(n) Zellen auch wirklich eine Querytable-Abfrage enthalten?



If "Markierte Zelle(n) enthält eine Query-Abfrage" Then

Do ... Loop Until



Ich brauche diese If-Klausel, da nicht alle (markierbaren) Zellen Querys enthalten. Falls eine oder mehrere markierte Zellen nämlich keine Querytables enthalten, steigt VBA mit Fehlermeldung aus.



Wäre dankbar für Hinweise



obergrattler



COME TO WHERE THE OBERGRATTLER IS ...
COME TO WHERE THE OBERGRATTLER IS ...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: