ich habe eine Frage zum Starten von Markos mit Hilfe des CommandButton.
Wenn ich das unten stehende Makro PortfolioIN aus dem Visual Basic Editor starte bzw. über Extra - Makro, funktioniert es. Nun möchte ich es aber mit einem CommandButton aus dem Sheet starten. Dann erhalte ich folgende Fehlermeldung: Die Methode "Intersect" für das Objekt"_Global" ist fehlgeschlagen.
Weiss jemand vielleicht, was ich falsch gemacht habe?
Private Sub PortfolioInButton_Click()
PortfolioIn
End Sub
Sub PortfolioIn()
Dim src As Range
Dim found As Range
Dim n As Integer
Dim i As Integer
Dim id As double
Sheets("Portfolio (In)").Select
'Ermittelt Anzahl der verwendeten Zeilen
n = ActiveSheet.UsedRange.Rows.Count
'propertyId wird eingeben dessen Daten man kopieren möchte
id = InputBox(Prompt:="Bitte gebe eine Property ID ein.", _
Title:="Kopiert Daten aus Portfolio (In) in Input Page")
'Sucht nur in den Spalten G (Nr.7)
Set src = Intersect(ActiveSheet.UsedRange, Range(Cells(15, 7), Cells(n, 7)))
Set found = src.Find(what:=id, LookIn:=xlValues, LookAt:=xlWhole)
If Not found Is Nothing Then
i = CLng(found.Row)
'kopiert Name Valuer
Sheets("Portfolio (In)").Select
Cells(i, 79).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("INPUT Page I").Select
Range("D9").Select
Selection.PasteSpecial Paste:=xlPasteValues
...
Else
MsgBox Prompt:="Diese Property ID existiert nicht!", _
Title:="Fehlermeldung", Buttons:=vbCritical
End If
End Sub
Vielen Dank.