Office: Code optimieren, select weglassen

ploeve · 3. Juni 2006

Hallo!

Wie kann ich folgenden Code optimieren?

Code:

Sub findAttachment(actSheet As Worksheet)
Dim lLastrow As Long
Dim strRange As String
Dim raC As Range
Application.ScreenUpdating = False

Worksheets("attachments").Select
lLastrow = Worksheets("attachments").Cells(Cells.Rows.Count, 1).End(xlUp).Row

strRange = "A23:A" & lLastrow

With Worksheets("attachments").Range(strRange)
Set raC = .Find(strAttachNoPublic, , xlValues)
strAttachNamePublic = Cells(raC.Row, 2).Value
Application.Run "Tabelle66.openAttachment"
End With
actSheet.Select

Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich möchte verhindern, dass ich zuerst das Blatt "attachments" selectiren muss, um dann wieder aufs ursprungsblatt zurückzukehren.

Wie stell ich das am besten an?

Danke

:)

jinx · 5. Juni 2006

Moin, ploeve,

mit Objekten arbeiten - ungeprüft:

Code:

Sub findAttachment(actSheet As Worksheet)
Dim lLastrow As Long
Dim strRange As String
Dim raC As Range
Dim wksTarget As Worksheet
Application.ScreenUpdating = False

Set wksTarget = Worksheets("attachments")
lLastrow = wksTarget.Cells(wksTarget.Cells.Rows.Count, 1).End(xlUp).Row

strRange = "A23:A" & lLastrow

With wksTarget.Range(strRange)
Set raC = .Find(strAttachNoPublic, , xlValues)
strAttachNamePublic = Cells(raC.Row, 2).Value
Application.Run "Tabelle66.openAttachment"
End With

Set wksTarget = Nothing
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ploeve · 5. Juni 2006

Hallo!

Danke, so hatte ichs auch bereits drinnen, aber er wechselt dennoch die Blätter sichtbar.
Anscheinend liegts an diesem Befehl:

Activesheet.OLEObjects(strAttachNamePublic).Verb Verb:=xlVerbPrimary

dieser liegt hinter der Anweisung:
Application.Run "Tabelle66.openAttachment

Anscheinend wechselt der Befehl automatisch das Blatt.
Ich wenn ich den Code direkt abrufe:

wksTarget.OLEObjects(strAttachNamePublic).Verb Verb:=xlVerbPrimary

Weiß da jemand was?

Danke
Matthias

Office: Code optimieren, select weglassen

Code optimieren, select weglassen

Code optimieren, select weglassen

Code optimieren, select weglassen - Similar Threads - Code optimieren select

Per Hyperlink ausgeblendetes Blatt einblenden

Code wird nicht komplett ausgeführt

Rabat Codes in einen Serienbrief einfügen

Combobox einbinden

VBA Code für Zeilen ausblenden einblenden mit JA/Nein

Liste mit VBA-Code erweitern/optimieren

Code optimieren