Office: suche erste Zeile in Spalte Wert >0

Hi, Karin

Das lese ich aus Zellen in einer anderen Datei aus und speichere mir das in Variablen.

Besser gesagt, das Programm soll in die Datei "Bestellung.xls" unter "Tabelle1".
Dort sind auch die Suchbegiffe verteilt, welche ich in Variablen speichere.
Die Daten, wo gesucht werden soll befinden sich in der Datei "Daten.xls", Tabelle "Daten"

Gruß Timo

 

Hi Timo,

Code:

 

Hi Karin,

Der Code ist prima nur gehen meine Ergenzungen nicht.

Kannst Du da bitte mal drüberschauen?

Private Sub CommandButton2_Click()

' Prüfung ob Datei Daten geöffnet und öffnen
If IsWorkbookOpen("Daten.XLS") Then

Else
Workbooks.Open Filename:="D:\Laemmel\2012\Daten.XLS"
ActiveWindow.ActivateNext
End If

Dim KN As Integer
Dim D1 As Date
Dim Sp1 As String
Dim Z1 As Integer
Dim AZ1 As Integer
Dim rngZelle As Range
Dim strStart As String

KN = Workbooks("Bestellung.xls").Worksheets("Tabelle1").Range("B3").Value
D1 = Workbooks("Bestellung.xls").Worksheets("Tabelle1").Range("A10").Value
Sp = Workbooks("Bestellung.xls").Worksheets("Tabelle1").Range("C10").Value

With Workbooks("Daten.xls").Worksheets("Daten")
Set rngZelle = .Columns(1).Find(KN, lookat:=xlWhole, LookIn:=xlValues)
If Not rngZelle Is Nothing Then
strStart = rngZelle.Address
Do
If .Cells(rngZelle.Row, 2) = D1 And .Cells(rngZelle.Row, 3) = Sp1 Then Exit Do
Set rngZelle = .Columns(1).FindNext(rngZelle)
Loop While Not rngZelle Is Nothing And rngZelle.Address strStart
rngZelle.Activate
Z1 = ActiveCell.Row
AZ1 = Range("D" & Z1).Value
Else
' MsgBox "Suchbegriff nicht gefunden"
AZ1 = 0
End If
Set rngZelle = Nothing
End With

Workbooks("Bestellung.xls").Worksheets("Tabelle1").Range("E10").Value = AZ1

End Sub

in "rngZelle.Address" steht $A$17. Das ist für meine Suche richtig
Nun wollte ich mir die Zeile 17 in Z1 merken und den Wert aus der Zeile in spalte D in AZ1 auch und den Wert in Bestellung E10 eintragen.

Wo ist mein Fehler?

Gruß Timo

 

Hi Timo,
... dass ich mich hier einschalte.

Das Problem, um das es jetzt hier geht, ist gelöst, siehe Thread
http://www.ms-office-forum.net/forum...d.php?t=293768

Eine zip-Datei mit zwei deiner Mappen habe ich für dich (nichtöffentlich) ins Netz gestellt.

Auf meine diesbezügliche PN hast du nicht reagiert. Ich bin nicht gerade begeistert... :-(

 

Hi Timo,

ungetestet:

Code:

 

Hallo Karin,

Der Code entspricht schon dem, was ich mir vorgestellt habe aber er findet immer nur die erste Zeile, in der die Kundennummer vorkommt.
Die Suche nach D1 und Sp geht nicht.

Wo könnte der Fehler sein?

Gruß Timo

 

Hi Timo,

das ist schon richtig, dass nur nach der Kundennummer gesucht wird und auch nur das 1. Vorkommen gefunden wird. Der Code ist geschrieben unter der Voraussetzung, dass die Kombination KN/D1/Sp nur einmalig vorkommt. Wenn die Kombination mehrfach vorkommt - wie soll Excel denn dann feststellen, welche von ihnen du verwenden willst? Ich konnte bisher auch nirgendwo entnehmen, dass ein Mehrfachvorkommen möglich ist.

Wenn du entweder nach KN oder nach D1 oder nach Sp suchen willst, dann solltest du ein UserForm verwenden, wo du per Auswahl festlegst, nach welchem der 3 Angaben (also in welcher Spalte) gesucht werden soll.

 

Hi Karin,

Entschuldigung, ich hatte mich falsch augedrückt.
Eine Zeile mit den drei Angaben ist nue einmal in der Tabelle enthalten.

Aber egal was ich in D1 und Sp eingebe ich erhalte immer die Zeile 17, wo die Kundennummer KN das erste mal gefunden wird. Der sucht nicht weiter.

Gruß Timo

 

Hi Timo,

also bei mir sucht er schon so lange weiter, bis die Übereinstimmung in allen 3 Spalten gefunden wurde und nicht gleich an der Stelle, wo die KN das erste mal auftritt.

 

Hi Karin,

Du hast recht, wenn ich die Datei neu öffne und führe das Programm aus, dann geht das aber wenn ich danach die Sp von "C10" auf "C11" ändere und möchte es nochmal ausführen, dann findet es nur die erst Kundenzeile.

Welchen wert muss ich zurücksetzen um das Programm mehrfach hindereinader laufen zu lassen?

Gruß Timo

 

Hi Timo,

dazu kann ich nichts sagen, da ich weder deine Arbeitsmappe noch deinen Ablauf kenne. Ich würde aber mal annehmen, dass du den Inhalt deiner Variablen in Wahrheit nicht verändert hast und beim nächsten Mal nach den selben Inhalten suchst.

 

Hi Karin,

hab Dir mal ne PN geschickt, entschuldige bitte.

Gruß Timo