Vergleich Zellen unterschiedlicher Tabellen
13.01.2016 15:41:18
Oliver
ich bin neu dabei beim Excel-Makro schreiben und habe etwas Probleme mit der Programmiersprache. Ich bekomme die Vergleiche der Zellen nicht ausgeführt. Ich habe mir ein paar Befehle zusammengesammelt, aber nicht vernünftig zusammengebastelt. Wenn also alles zusammengewürfelt erscheint, wisst ihr warum.
Bisher habe ich folgendes geschrieben (das Makro wird durch einen Button ausgeführt). Was ich ausführen wollte, habe ich in die Kommentare geschrieben.
Sub Bestellen()
' Bestellen Makro
' Tastenkombination: Strg+y
' Schreiben "Bestellung aufgegeben"
Cells(12, 1) = "Bestellung aufgegeben"
' Vergleich der Zellen B2 + Leerzeichen + B3 in Tabelle "Kunde_I1" mit jeder einzelnen Zeile _
der Spalte B in Tabelle "Zermo_Intern" über Zähler i
For i = 1 To 40
If (Worksheets("Kunde_I1").Range("B2").Value & " " & Worksheets("Kunde_I1").Range("B3"). _
Value = Worksheets("Zermo_Intern").Range.Cells(i, 2).Value) Then
i = n
End If
Next i
' Vergleich zwischen allen einzelnen Zeilen der Tabelle "Zermo_Einkauf" in der Spalte B mit _
jeweils einer Zelle der Spalte B ab Zeile n+1 bis zum Abbruchkriterium
For j = 1 To 15
' Abbruchkriterium: Wenn in Tabelle "Zermo_Intern" in Spalte G ab Zeile n+1 wieder etwas _
drin steht
If (Worksheets("Zermo_Intern").Range.Cells(n + j, 7) 0) Then
For k = 1 To 40
If (Worksheets("Zermo_Einkauf").Range.Cells(k, 2).Value = Worksheets("Zermo_Intern"). _
Range.Cells(n + j, 2).Value) Then
' Wert der Spalte F aus übereinstimmender Zeile "Zermo_Intern" in Spalte E der ü _
bereinstimmenden Zeile "Zermo_Einkauf" schreiben
Worksheets("Zermo_Intern").Range.Cells(1, 1).Value = Worksheets("Kunde_I1").Range.Cells( _
j + i, 5).Value
End If
Next k
End If
Next j
' Werte aller Zeilen der Spalte F aus "Zermo_Einkauf" * ("Kunde_I1" Zelle (B4-RECHTS(C4))
End Sub
Es wäre nett wenn mir jemand helfen könnte.
Danke schon mal an die, die sich die Mühe machen mir zu helfen. Über jeden Tipp bin ich dankbar.
Gruß Oliver
Anzeige