Thema Datum  Von Nutzer Rating
Antwort
19.02.2019 21:56:40 Simon
NotSolved
19.02.2019 22:30:27 Gast46939
NotSolved
20.02.2019 19:34:42 Simon
NotSolved
Blau Daten löschen mit Schleife
21.02.2019 09:19:22 Gast46939
Solved
21.02.2019 16:20:43 Simon
NotSolved
21.02.2019 16:55:18 Simon
NotSolved
21.02.2019 19:24:41 Gast45243
NotSolved

Ansicht des Beitrags:
Von:
Gast46939
Datum:
21.02.2019 09:19:22
Views:
545
Rating: Antwort:
 Nein
Thema:
Daten löschen mit Schleife

Der Abstand (Offset) zwischen den Tabellen scheint zu alternieren (31, 32, 31, 32, ...).

In dem Fall kann man das über ein boolschen Schalter (Flag) lösen, welchen man ebenfalls alterniert.

Option Explicit

Sub Test()
  
  Dim rng As Excel.Range
  Dim bolSwitch As Boolean 'unser An/Aus-Schalter
  
  'der referenzierte Bereich - Start
  Set rng = Range("A8:G32")
  
  'Endlosschleifen benötigen ein Abbruchkriterium
  ' hier wird bis kleiner-als Zeile 100 gearbeitet
  Do While rng.Row < 100
    
    'Ausgabe der Bereich-Adresse im Direktfenster
    '(ggf. einblenden über Menü 'Ansicht' oder mit STRG+G)
    Debug.Print rng.Address
    
    
    If bolSwitch = False Then
      
      rng.ClearContents 'Inhalt leeren, Formate behalten
      Set rng = rng.Offset(31) 'nächsten Bereich referenzieren
      
    Else 'bolSwitch = True
      
      rng.Clear 'alles leeren (Inhalt, Formate, ...)
      Set rng = rng.Offset(32) 'nächsten Bereich referenzieren
      
    End If
    
    'Schalter negieren
    bolSwitch = Not bolSwitch
    
  Loop
  
End Sub

Die Frage ist hier nur, wie lange soll die Schleife laufen? Ich habe hier mal als Abbruch-Kriterium bis max. Zeile 100 gewählt.

Damit sind es am Ende 3 Schleifendurchgänge (8 + 31 + 32 = 71 -> 71 + 31 = 102 -> Abbruch).


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.02.2019 21:56:40 Simon
NotSolved
19.02.2019 22:30:27 Gast46939
NotSolved
20.02.2019 19:34:42 Simon
NotSolved
Blau Daten löschen mit Schleife
21.02.2019 09:19:22 Gast46939
Solved
21.02.2019 16:20:43 Simon
NotSolved
21.02.2019 16:55:18 Simon
NotSolved
21.02.2019 19:24:41 Gast45243
NotSolved