Identische Materialnr. finden und Zellen ersetzen
24.01.2007 09:06:22
Berkmann
ich bin in Excel blutiger Anfänger (VBA geht ein bisschen) und bräuchte eure Hilfe bei einer in meinen Augen komlizierten Aufgabenstellung.
Hier man Excel-File:
https://www.herber.de/bbs/user/39896.xls
Ziel das Makros ist es, sich der Reihe nach eine Materialnummer aus Spalte A zu schnappen, und dann zu prüfen, ob diese auch in Spalte F vorhanden ist.
1. Ist dies der Fall soll die nebenstehende "Exakt" Zahl aus Spalte G kopiert werden und anstelle der 8 in Spalte "Pauschal" eingefügt werden; in der gleichen Zeile wie entsprechende Materialnummer aus Spalte A.
2. Lässt sich keine Übereinstimmung in Spalte F finden, bleibt die pauschale 8 in C stehen.
Mein Ansatz war folgender: Allerdings bekomme ich meist die Fehlermeldungen 9 ("Index außerhalb des gültigen Bereichs) und 91 ("Objektvariable oder With-Blockvariabel nicht festgelegt")
Sub Zusammenwurschteln()
Dim Dateiname As String
Dim i As Integer
Dim j As Integer
Dim x As Variant
Dim y As Variant
Dim L As Integer
Dim R As Range 'R = Rückkehraddresse
Dateiname = "Versuchstabelle.xls"
Windows(Dateiname).Activate
Sheets("Tabelle1").Activate
Range("A2").Select
R = ActiveCell.Address
For i = 1 To ActiveSheet.UsedRange.Rows.Count
x = ActiveCell.Value
Range("F2").Select
Do Until IsEmpty(ActiveCell)
y = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Selection.Copy
If x = y Then
Range(R).Select
ActiveCell.Offset(0, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, -2).Select
Exit Do
End If
ActiveCell.Offset(1, 0).Select
Loop
Range(R).Select
ActiveCell.Offset(1, 0).Select
R = ActiveCell.Address
Next
End Sub
Ist mein Ansatz noch korrigierbar oder muss da was völlig neues her?
Wenn mir jemand damit helfen könnte wär ich echt dankbar.
Danke und beste Grüße
Manuel