Unkorrekte VBA Fehler

Private Sub NormaleAuslieferungen_Click() Dim i As Double, LR As Double, SP As Integer Dim Suchen As String, Anzahl, Zeile As Double SP = 2 'Spalte B; zur Bestimmung letzte Zeile With Sheets("LBs") LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte For i = 2 To LR If Left(.Cells(i, 3), 1) = "1" Then Suchen = .Cells(i, 2) 'Ermittlung wieviele Einträge (gleiche Nr) oberhalb der Zeile vorhanden sind Anzahl = Evaluate("=SumProduct((B2:B" & i - 1 & "=""" & Suchen & """) * (1))") If Anzahl > 1 Then Zeile = WorksheetFunction.Match(Suchen, .Columns(2), 0) 'Zeile erster Fund If .Cells(Zeile, 1) "" Then .Cells(i, 1) = .Cells(Zeile, 1).Value End If Else MsgBox "kein Eintrag für " & Suchen & " oberhalb Zeile " & i & " vorhanden" End If End If Next End With Call Filter End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub NormaleAuslieferungen_Click() Dim i As Double, LR As Double, SP As Integer Dim Suchen As String, Anzahl, Zeile As Double Dim Bedingung As Boolean Dim z As Long SP = 2 'Spalte B; zur Bestimmung letzte Zeile With Sheets("LBs") LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte For i = 2 To LR If Left(.Cells(i, 3), 1) = "1" Then Suchen = .Cells(i, 2) 'Ermittlung wieviele Einträge (gleiche Nr) oberhalb der Zeile vorhanden sind Anzahl = Evaluate("=SumProduct((B2:B" & i - 1 & "=""" & Suchen & """) * (1))") _ If Anzahl > 1 Then Bedingung = True Do Zeile = WorksheetFunction.Match(Suchen, .Columns(2), 0) 'Zeile erster _ Fund Else Zeile = WorksheetFunction.Match(Suchen, .Columns(2), 0) 'Zeile erster _ Fund z = z + 1 Debug.Print z Loop Until Bedingung If .Cells(Zeile, 1) "" Then .Cells(i, 1) = .Cells(Zeile, 1).Value End If Else MsgBox "kein Eintrag für " & Suchen & " oberhalb Zeile " & i & " _ vorhanden" End If End If Next End With Call Filter End Sub

Private Sub NormaleAuslieferungen_Click() Dim i As Double, LR As Double, SP As Integer Dim Suchen As String, Anzahl, Zeile As Double, rr as range SP = 2 'Spalte B; zur Bestimmung letzte Zeile With Sheets("LBs") LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte For i = 2 To LR If Left(.Cells(i, 3), 1) = "1" Then Suchen = .Cells(i, 2) 'Ermittlung wieviele Einträge (gleiche Nr) oberhalb der Zeile vorhanden sind Anzahl = Evaluate("=SumProduct((B2:B" & i - 1 & "=""" & Suchen & """) * (1))") If Anzahl > 1 Then set rr=.Columns(2).find (suchen) 'ggf weitere Parameter für Find ergänzen if (rr is nothing) then msgbox Suchen + " gibt's 'net" else Zeile = rr.row'Zeile erster Fund If .Cells(Zeile, 1) "" Then .Cells(i, 1) = .Cells(Zeile, 1).Value endif Else MsgBox "kein Eintrag für " & Suchen & " oberhalb Zeile " & i & " vorhanden" End If End If Next End With Call Filter End Sub

Siehe Beitrag von mir an Werner. Ich weiss jetzt nicht ob Werner dran ist oder nicht.
Hallo Werner
Ich habe ein Beispiel erstellt.
Ich habe verschiedene Register erstellt LBs/QuelleTest1/LB/QuelleTest2. In den Quellregister sind immer die ursprünglichen Daten zum Testen.
Ich möchte folgendes:
In der Spalte C hat gibt es 1*, das sind für mich wichtig, dass in diese Zeile (Spalte A) ein Wert steht, so. Wie soll Excel zu dem bestimmten Wert kommen?
Erklärung:
In der Spalte B hat es verschiedene Nummern, die mehrmals vorkommen.
Jetzt soll Excel die Zahl in der Spalte B speichern, bei denen in der Spalte C mit 1 beginnt.
Im Register kommt es vor, dass die gespeicherte Zahl im gleichem Register (Spalte B) steht & gleichzeitig in der Spalte A einen Wert aufweist. Diese Zahl von der Spalte A soll in der Zeile (wo in der Splate C mit 1 beginnt) eingefügt werden.
Wenn der Wert in der Spalte A mehrmals vorkommen sollte, kann Excel die Unterste nehmen.
Ich hoffe, dass ich das gut Erklärt habe.
https://www.herber.de/bbs/user/120547.xlsb

Hallo Mmat
Suche in Spalte C nach einem Wert der mit 1 beginnt. = "Fundzeile"
Ja das ist korrekt.
- Nimm den Wert aus Spalte B in der "Fundzeile" als "Suchbegriff"
Ja ist korrekt.
- Suche das erste Vorkommen von "Suchbegriff" in Spalte B oberhalb von Fundzeile = "1. Zeile"
Nein nicht korrekt. Für mich ist die "1. Zeile" = Ersten Fund in der Spalte A mit dem
Suchbegriff.
Details:
Bei der erste Übereinstimmung vom "Suchbegriff" muss es die Spalte A
kontrollieren, ob da einen Wert steht, wenn nein, dann weiter suchen. Das wäre korrekt.
Das beantwortet auch die Frage: "Was passiert, wenn in "1. Zeile" der Spalte A nix drin steht ?")
Wenn beim "Suchbegriff" in der Spalte A niergends einen Wert steht, dann muss es mir eine Meldung
zurückgeben.
(Das ist auch die Antwort auf: "Was passiert wenn es den Suchbegriff nicht gibt,
bleibts bei der platten Fehlermeldung wie bisher?")
- Übertrage den Wert aus Spalte A der "1. Zeile" in Spalte A der "Fundzeile"
Ja ist korrekt, wenn die Erklärung oben eingehalten wird.
- Schleife: Suche weiter in Spalte C unterhalb "Fundzeile"
Ja ist korrekt, bis zum ende des Registers (Worksheet), wo mit 1 beginnt.
Isses das ?
Ja mehrheitlich hast du es verstanden.
Dann hab ich 2 Problemchen
- Was passiert wenn es den Suchbegriff nicht gibt, bleibts bei der platten Fehlermeldung wie bisher?
Also das würde heissen, dass überall bei dem "Suchbegriff" in der Spalte A nix drin steht. Ja
genau, dann muss es mir das Melden.
- Was passiert, wenn in "1. Zeile" der Spalte A nix drin steht ?
Dann muss es weiter suchen, bis oberhalb der "Fundzeile" in der Spalte A einen Wert drin steht.

Private Sub NormaleAuslieferungen_Click() Dim i As Double, LR As Double, SP As Integer Dim Suchen As String, Anzahl, Zeile As Double, rr As Range SP = 2 'Spalte B; zur Bestimmung letzte Zeile With Sheets("LBs") LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte For i = 2 To LR If Left(.Cells(i, 3), 1) = "1" Then Suchen = .Cells(i, 2) 'Ermittlung wieviele Einträge (gleiche Nr) oberhalb der Zeile vorhanden sind Anzahl = Evaluate("=SumProduct((B2:B" & i - 1 & "=""" & Suchen & """) * (1))") If Anzahl > 1 Then Set rr = .Columns(2).Find(Suchen) 'ggf weitere Parameter für Find ergänzen If (rr Is Nothing) Then MsgBox Suchen + " gibt's 'net" Else Zeile = rr.Row 'Zeile erster Fund If .Cells(Zeile, 1) "" Then .Cells(i, 1) = .Cells(Zeile, 1).Value Else .Cells(i, 1) = .Cells(Zeile, 1).End(xlUp).Value End If End If Else MsgBox "kein Eintrag für " & Suchen & " oberhalb Zeile " & i & " vorhanden" End If End If Next End With Call Filter End Sub

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread