VBA Hilfe gesucht
28.06.2005 09:28:31
noname
ich habe unten aufgeführtes makro bei mir erstellt es hängt aber. ICh wäre für eine hilffe dankbar. Würde mich über rückmeldung freuen evntuell auch über jemand wo mir einige tipps hat.
Sub Berechnen()
Dim MySheet As Worksheet
Dim myRange As Range
Set MySheet = Worksheets("Artikel")
Set myRange = MySheet.Range("a1:I9999")
Set myTarget = Worksheets("Hauptmenü").Cells(2, 8)
nummer = Application.WorksheetFunction.VLookup(myTarget, myRange, 9, 0).Row
Cells(nummer, 9).Activate
wert_alt = Activate.Cells
wert_neu = wert_alt + Hauptmenü!Zugang
Cells = wert_neu
End Sub
Gruß Andy