referenz suchen und Daten aktualisieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub SAPUpdate() Dim strSuche As String ' Danach wird gesucht Dim rngFound As Range ' hier wurde es gefunden Dim i As Long ' Zeilenzähler der Updatetabelle Dim z As Long ' Letzte Zeile Bearbeitungstabelle For i = 2 To Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row i = i + 1 z = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row strSuche = Sheets(2).Cell(1, i - 1).Value ' Referenz als Suchwert übergeben Set rngFound = ActiveSheet.Range("A2:A" & z).Find(strSuche) If rngFound Is Nothing Then 'Neue Zeile Sheets(2).Cell(i - 1, 1).Copy Sheets(1).Cell(z + 1, 1).PasteSpecial xlValues ' hier kommt das einfügen der neuen Zeile noch rein Next End If 'Update vorhandener Daten If Sheets(1).Cell(9, i - 1).Value = "abgeschlossen" Then Next i ' 9=Spalte i Sheets(2).Cell(i - 1, 2).Copy Sheets(1).Cell(z, 2).PasteSpecial xlValues ' hier kommen weitere Daten rein die kopiert werden sollen End If Next End Sub

Sub SAPUpdate() Dim strSuche As String ' Danach wird gesucht Dim rngFound As Range ' hier wurde es gefunden Dim i As Long ' Zeilenzähler der Updatetabelle Dim z As Long ' Letzte Zeile Bearbeitungstabelle For i = 2 To Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row i = i + 1 z = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row strSuche = Sheets(2).Cell(1, i - 1).Value ' Referenz als Suchwert übergeben Set rngFound = ActiveSheet.Range("A2:A" & z).Find(strSuche) If rngFound Is Nothing Then 'Neue Zeile Sheets(2).Cell(i - 1, 1).Copy Sheets(1).Cell(z + 1, 1).PasteSpecial xlValues ' hier kommt das einfügen der neuen Zeile noch rein End If 'Update vorhandener Daten If Sheets(1).Cell(9, i - 1).Value "abgeschlossen" Then ' 9=Spalte i Sheets(2).Cell(i - 1, 2).Copy Sheets(1).Cell(z, 2).PasteSpecial xlValues ' hier kommen weitere Daten rein die kopiert werden sollen End If Next i End Sub

Sub SAPUpdate() Dim strSuche As String ' Danach wird gesucht Dim rngFound As Range ' hier wurde es gefunden Dim i As Long ' Zeilenzähler der Updatetabelle Dim z As Long ' Letzte Zeile Bearbeitungstabelle For i = 2 To Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row i = i + 1 z = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row strSuche = Sheets(2).Cells(1, i - 1).Value ' Referenz als Suchwert übergeben Set rngFound = ActiveSheet.Range("A2:A" & z).Find(strSuche) If rngFound Is Nothing Then 'Neue Zeile Sheets(2).Cells(i - 1, 1).Copy Sheets(1).Cells(z + 1, 1).PasteSpecial xlValues ' hier kommt das einfügen der neuen Zeile noch rein End If 'Update vorhandener Daten If Sheets(1).Cells(9, i - 1).Value "abgeschlossen" Then ' 9=Spalte i Sheets(2).Cells(i - 1, 2).Copy Sheets(1).Cells(z, 2).PasteSpecial xlValues ' hier kommen weitere Daten rein die kopiert werden sollen End If Next i End Sub

Hallo Stefan,
das mit dem "gelöst" wage ich zu bezweifeln. Der Code von dir macht alles nur nicht das was deine Aufgabenstellung ist.
Annahme, die letzte beschriebene Zeile in Blatt 1 Spalte A ist die Zeile 10:
Mit deiner Code Zeile

For i = 2 To Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row

beginnst du eine For - Next Schleife und übergibst ihr den Zeilenbereich von Zeile 2 (For i = 2) bis zur letzten beschriebenen Zeile (Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row) der Spalte A für dieses Beispiel die Zeile 10. Also der Bereich geht von Zeile 2 bis Zeile 10.
Dann folgt bei dir im Code

i = i + 1

Die Variable i hat jetzt den Wert 3
Mit der Zeile

strSuche = Sheets(2).Cells(1, i - 1).Value

Sagst du folgendes: Weise der Variablen strSuche den Wert aus Sheets(2).Cells(Zeile 1, Spalte B) zu.
Bei der .Cells schreibweise ist in der Klammer der erste Wert die Zeilennummer und der zweite Wert die Spaltennummer. .Cells(1, 1) ist also A1, .Cells(1, 2) B1.
Du schreibst .Cells(1 (also Zeile 1), i -1 (i hat den Wert 3, minus 1 = 2, bedeutet Spalte B).
Du übergibst mit deinem Code also den Wert aus Zelle B1 an die Variable strSuche und willst die dann im anderen Tabellenblatt in Spalte A suchen.
Gib mal bei deinem Code nach der Zeile

strSuche = Sheets(2).Cell(1, i - 1).Value

die Zeile

msgBox strSuche

ein, dann Zeigt er dir in einer Box an was du mit dem Code in die Variable strSuche eingelesen hast.
Nur ein Beispiel. Da geht noch mehr durcheinander.
Werner

Sub SAPUpdate() Dim strSuche As String ' Danach wird gesucht Dim rngFound As Range ' hier wurde es gefunden Dim i As Long ' Zeilenzähler der Updatetabelle Dim z As Long ' Letzte Zeile Bearbeitungstabelle For i = 2 To Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row i = i + 1 z = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row strSuche = Sheets(2).Cells(1, i - 1).Value ' Referenz als Suchwert übergeben Set rngFound = ActiveSheet.Range("A2:A" & z).Find(strSuche) If rngFound Is Nothing Then 'Neue Zeile Sheets(2).Cells(i - 1, 1).Copy Sheets(1).Cells(z + 1, 1).PasteSpecial xlValues ' hier kommt das einfügen der neuen Zeile noch rein End If 'Update vorhandener Daten If Sheets(1).Cells(i - 1, 9).Value "abgeschlossen" Then ' 9=Spalte i Sheets(2).Cells(i - 1, 2).Copy Sheets(1).Cells(z, 2).PasteSpecial xlValues ' hier kommen weitere Daten rein die kopiert werden sollen End If Next i End Sub

Sub SAPUpdate() Dim strSuche As String ' Danach wird gesucht Dim rngFound As Range ' hier wurde es gefunden Dim i As Long ' Zeilenzähler der Updatetabelle Dim z As Long ' Letzte Zeile Bearbeitungstabelle Dim foundZeile As String ' Zeile in der der Suchwert gefunden wurde Sheets(2).Activate For i = 2 To Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row Sheets(1).Activate z = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row strSuche = Sheets(2).Cells(i, 1).Value ' Referenz als Suchwert übergeben Set rngFound = Sheets(1).Range("A2:A" & z).Find(strSuche) If rngFound Is Nothing Then 'Neue Zeile Sheets(2).Cells(i, 1).Copy Sheets(1).Cells(z + 1, 1).PasteSpecial xlValues Sheets(2).Cells(i, 2).Copy Sheets(1).Cells(z + 1, 2).PasteSpecial xlValues ' hier kommt das einfügen der neuen Zeile noch rein GoTo weiter Else foundZeile = rngFound.Row End If 'Update vorhandener Daten If Sheets(1).Cells(foundZeile, 9).Value "abgeschlossen" Then ' 9=Spalte i Sheets(2).Cells(i, 2).Copy Sheets(1).Cells(foundZeile, 2).PasteSpecial xlValues ' hier kommen weitere Daten rein die kopiert werden sollen End If weiter: Next i End Sub

Hallo Stefan,
Du bist in den Festlegungen, wo , was und wie in welchen Sheets (sollte Worksheets sein)
gesucht wird - nur 1 Beispiel:
z = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Set rngFound = ActiveSheet.Range("A2:A" & z).Find(strSuche)
Jetzt frage ich mich, was hat Sheets(1) mit ActiveSheet zu tun, denn in Sheets(1) ermittelst Du die letzte belegte Zeile in Spalte 'A' und diesen Wert benutzt Du in ActiveSheet zur Festlegung, in welchem Bereich irgend was gesucht werden soll. Das paßt einfach nicht.
Außerdem ist Sheets(1) sowas von einer ungenauen Angabe, denn wenn man auf der Excel-Oberfläche die Tabellen-Objekte verschiebt, wars das schon mit der Genauigkeit. Das gleiche gilt für ActiveSheet.
Schon dieser Vba-Befehl ist ungenau: z = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row:
- Cells zeigt auf Sheets(1)
- Rows.Count auf das gerade auf dem Bilschirm aktivierte Tabellen-Objekt
- ist Sheets(1) oder das aktive Tabellenobjekt gar kein Tabelleblatt sondern ein Diagrammblatt
machts mächtig knirsch....
Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

referenz suchen und Daten aktualisieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread