Clever-Excel-Forum

Hallo Frank,

mit dem code ziehst Du alles hoch. Die Zeit des Tages steht übrigens über dem Tag und nicht darunter (Spalte G)

Sub Makro1()
'Variablendeklarationen 
'Integer 
Dim iCnt%, iRow%
'String 
Dim strSearch$
'Schleife ueber Datenspalten B bis L 
For iCnt = 2 To 12
  'Wenn in der Spalte "Super (E5)" enthalten ist, dann 
  'Hinweis: nicht ganz sauber, in Spalte G ist der Tag relevant 
  If Application.CountIf(Columns(iCnt), "Super (E5)") Then
    'In allen Spalten ausser G ist Suchstring "Super (E5)", sonst "Mittwoch" 
    'Hinweis: Tag ggf. ueber Inputbos abfragen 
    If iCnt <> 6 Then strSearch = "Super (E5)" Else strSearch = "Mittwoch"
    'Suchstring finden und Zeilennummer zurueckgeben 
    iRow = Columns(iCnt).Find(What:=strSearch, After:=Cells(10, iCnt), LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Row
    'Daten ab Zeile 10 loeschen 
    'Hinweis: ich gehe davon aus, dass der Suchstring nicht schon in Zeile 10 oder 11 kommt 
    Range(Cells(10, iCnt), Cells(iRow - 2, iCnt)).Delete shift:=xlUp
  'Ende Wenn in der Spalte "Super (E5)" enthalten ist, dann 
  End If
'Ende Schleife ueber Datenspalten B bis L 
Next
End Sub

Hallo André, die Arbeit ist Klasse, nur hat sie ein, zwei Fehler
- der Abfragebereich "B10 - L1xxx sollte nur von der Aktualisierung der Web-Abfrage überschrieben werden
- der Suchtext ist "Super (E5)", ist dieser gefunden sollte der Preis über der gefundenen Zelle als Zielzelle verwendung finden


___________[
Bild bitte so als Datei hochladen: Klick mich!
]


In der Spalte F steht Mittwoch in F30, der zu suchende Text aber in F45.
Da die Tankstelle den Preis nicht aktualisiert (geschlossen/offline) rutscht das ganze Datenpaket
wie schon erwähnt haben manche Tankst. nicht alle Spritsorten oder führen in anderer Art die Sorten auf.

Der Bereich ab Spalte M wird zur Berechnung mit eingestellten Formeln und Verweisen als Vergleichliste benutzt
Das Makro wäre ab dem Bereich M - ?? besser platziert bzw. eine neues Auswertungstabellenblatt

nochmals, ich suche die Spritsorte Super (E5) mit dem dazugehörigen Wert darüber


Danke für deine Bemühungen
Gruß Frank