Wenn Wert nicht in Range dann

Hey,
ich komme bei folgendem Problem auf keine Lösung... Freue mich über HIlfe und Anregungen.
In Tabellenblatt 1 in Spalte B befindet sich eine Liste mit Vokabeln. Einige Vokabeln sind zusammengesetzt (Kompositum) aus einer anderen Vokabel und einem Präfix (z.b.: perigignomai -> peri + gignomai).
In Tabellenblatt 2 in Zeile 13 befinden sich alle Präfixe (z.b.: peri, ex, apo, ...).
Ich möchte für jede Vokabel überprüfen, ob es ein Kompositum ist oder nicht.
Bisher habe ich folgenden Code, um zu prüfen, ob es eines ist:


Sub CommandButton1()
Dim Präfixe, Earn, Range1 As Range
Dim Reihenzahl As Integer
Dim Präfix, Komp As String
Reihenzahl = Worksheets("Neue Vokabeln").Cells(Rows.Count, 2).End(xlUp).Row
Set Range1 = Worksheets("Neue Vokabeln").Cells(1, 2).Resize(Reihenzahl, 1)
Set Präfixe = Worksheets("Zeitformen kurz").Range("B13:Z13")
For Each Earn In Range1
For Each Präfix In Präfixe
For i = 2 To 5 'bisherige Anzahl an Präfixen in Spalte B bis E
If Präfix = Left(Earn, i) Then
Komp = Left(Earn, i)
UserForm2.Label1.Caption = Komp
UserForm2.Show
End If
If Präfix = Left(Earn, i) Then Exit For
Next i
Next Präfix
'Wenn Präfix nicht gefunden, dann
'Zeige Earn in Userform2.Label1.Caption
Next Earn
End Sub

In der 3.- und vorletzten Zeile sollen nun die Vokabeln angezeigt werden, die kein Präfix aus der Liste der Präfixe haben. Hier hänge ich fest. Weil: Wenn ich einfach "Else:" in Bezug auf das vorhergehene "If Präfix ist vorhanden" nutze, prüft es nur das erste Präfix in der Liste und wenn das nicht stimmt, bricht es sofort ab. Es soll ja aber alle prüfen und erst am Ende, wenn es ergebnislos war, die Vokabel ausgeben.
Weiß da wer eine Lösung?
VIelen Dank, Johannes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub periExApo() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim WsVoc As Worksheet: Set WsVoc = Wb.Worksheets("Neue Vokabel") Dim WsPrex As Worksheet: Set WsPrex = Wb.Worksheets("Zeitformen kurz") Dim VocList, PrexList, VocRes$, NextEntry$, i&, j& VocList = WsVoc.Range("B1:B" & WsVoc.Cells(WsVoc.Rows.Count, 2).End(xlUp).Row) PrexList = WsPrex.Range("B13:D13") 'In meiner Testumgebung gibt es nur 3 Spalten mit peri, apo, ex For i = 1 To UBound(VocList) NextEntry = VocList(i, 1) For j = 1 To UBound(PrexList, 2) If InStr(1, Left(VocList(i, 1), 4), PrexList(1, j)) Then NextEntry = "" Next j If NextEntry "" Then VocRes = VocRes & NextEntry & Chr(10) Next i Debug.Print "Vokabelliste OHNE Präfixe:" & Chr(10) & VocRes Set Wb = Nothing: Set WsVoc = Nothing: Set WsPrex = Nothing End Sub

Private Sub CommandButton1_Click() Dim Praefixe As Range, Earn As Range, Range1 As Range Dim Reihenzahl As Long Dim Praefix As Range, Komp As String Dim artmp Dim bFund As Boolean ReDim artmp(0, 0) Reihenzahl = Worksheets("Neue Vokabeln").Cells(Rows.Count, 2).End(xlUp).Row Set Range1 = Worksheets("Neue Vokabeln").Cells(1, 2).Resize(Reihenzahl, 1) Set Praefixe = Worksheets("Zeitformen kurz").Range("B13:E13") For Each Earn In Range1.Cells For Each Praefix In Praefixe.Cells If Praefix.Text "" Then If Left(Earn.Text, Len(Praefix.Text)) = Praefix.Text Then bFund = True Exit For End If End If Next If Not (bFund) Then If artmp(0, 0) = "" Then artmp(0, 0) = Earn.Value Else ReDim Preserve artmp(0, 0 To UBound(artmp, 2) + 1) artmp(0, UBound(artmp, 2)) = Earn.Value End If bFund = False End If Next artmp = Application.WorksheetFunction.Transpose(artmp) Range1.Cells(1).Offset(, 1).Resize(UBound(artmp)) = artmp End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

327 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn Wert nicht in Range dann

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

327 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread