Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wichtig: Makro - Code überspringen

Wichtig: Makro - Code überspringen
17.08.2005 20:48:00
Oliver
Hallo, ich suche eine Lösung für mein Problem. Ich muss falls der Wert in folgendem Code nicht gefunden werden kann einen Teil überspringen und wo anders weiter machen. Kann mir dabei jemand helfen?
For Each zeile In Range("A4:A301")
' Fläche auswählen
zeile.Select
If ActiveCell.Value = KNT Then
For Each spalte In Range("A2:O2")
spalte.Select
If ActiveCell.Value = KST Then
ActiveCell.Offset(zeile, spalte).Select
ActiveCell.Value = wert3
...... Befehel der alles überspringt falls Wert nicht gefunden/eingesetzt!
End If
Next spalte
End If
Next zeile
..... Hierher muss gesprungen werden, wenn WERT eingesetzt werden konnte.
Sheets("Tabelle1").Select

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wichtig: Makro - Code überspringen
17.08.2005 21:19:22
Peter
Hallo Oliver,
versuch es mit folgendem Code:


Option Explicit
Sub Oliver()
Dim Zeile    As Range
Dim Spalte   As Range
Dim KNT      As String
Dim KST      As String
Dim Wert3    As Double
Dim NotFound As Boolean
   For Each Zeile In Range("A4:A301")
'    Fläche auswählen
       Zeile.Select
       If ActiveCell.Value = KNT Then
          For Each Spalte In Range("A2:O2")
              Spalte.Select
              If ActiveCell.Value = KST Then
                 ActiveCell.Offset(Zeile, Spalte).Select
                 ActiveCell.Value = Wert3
'...... Befehl der alles überspringt falls Wert nicht gefunden/eingesetzt!
               Else
                 NotFound = True
                 Exit For
              End If
           Next Spalte
        End If
        If NotFound = True Then Exit For
    Next Zeile
'..... Hierher muss gesprungen werden, wenn WERT eingesetzt werden konnte.
    If NotFound = True Then MsgBox "der Wert wurde nicht gefunden."
    Sheets("Tabelle1").Select
Das Forum lebt auch von den Rückmeldungen.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige