Thema Datum  Von Nutzer Rating
Antwort
30.11.2019 18:43:47 suitnerual2019
NotSolved
30.11.2019 22:51:24 Gast64788
NotSolved
01.12.2019 17:14:26 suitnerual2019
NotSolved
Blau If or then ? Hilfe !
 03.12.2019 08:20:34 Torsten
NotSolved
03.12.2019 09:47:01 suitnerual2019
NotSolved
03.12.2019 10:34:16 Torsten
NotSolved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
03.12.2019 08:20:34		 Views:
284		 Rating:
     
Antwort:
  Ja
Thema:
If or then ? Hilfe !

Hallo,

habe heute erst deisen Beitrag gefunden. Hoffe du schaust noch nach. Dieses Forum ist nicht so optimal, finde ich.

Hier dein Code. Sollte so passen. Wenn noch fragen sind, melde dich wieder.

Sub Dienstplan()

Dim WS As Worksheet
Set WS = ThisWorkbook.Sheets("Tabelle1")        'hier deinen Tabellennamen eintragen anstatt Tabelle1
Dim i As Long
Dim Zelle As Range, Bereich As Range

For i = 6 To 100
    If WS.Range("B" & i).Value <> "" Then WS.Range("I" & i & ":N" & i).ClearContents
Next i

Set Bereich = WS.Range("I6:N100")

For Each Zelle In Bereich
    If Zelle.Value = "A" Or Zelle.Value = "B" Or Zelle.Value = "C" Or Zelle.Value = "D" Or Zelle.Value = "E" Or Zelle.Value = "F" Or Zelle.Value = "G" Then
        Zelle.Value = ""
    End If
Next Zelle
    
End Sub

Gruss Torsten

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
30.11.2019 18:43:47 suitnerual2019
NotSolved
30.11.2019 22:51:24 Gast64788
NotSolved
01.12.2019 17:14:26 suitnerual2019
NotSolved
Blau If or then ? Hilfe !
 03.12.2019 08:20:34 Torsten
NotSolved
03.12.2019 09:47:01 suitnerual2019
NotSolved
03.12.2019 10:34:16 Torsten
NotSolved