AW: VBA Curser steuern
30.04.2015 13:59:39
fcs
Hallo Jürgen,
nachfolgen mein Lösungsvorschlag.
Bitte den Hinweis bzgl. Blattnamen und Blatt-Indexnummer beachten.
Gruß
Franz
Sub Suche_Katuswert()
Dim varSuchwert
Dim ZelleSuchen As Range
Dim wkbSuchwert As Workbook, wksSuchwert As Worksheet
Dim strMsg As String
On Error GoTo Fehler
Set wkbSuchwert = Application.Workbooks("Kaktus.xlsm")
Set wksSuchwert = wkbSuchwert.Worksheets(4)
varSuchwert = wksSuchwert.Range("D8")
'nachfolgend die Zahlen bei den Worksheets in Anführungszeichen setzen, _
wenn es sich um den Namen und nicht die Index-Nummer handelt!
With Application.Workbooks("Früchtchen.xlsx")
Set ZelleSuchen = fncSuchen(wksSuche:=.Worksheets(53), Spalte:=6, varWert:=varSuchwert)
If Not ZelleSuchen Is Nothing Then
.Activate
.Worksheets(53).Activate
ZelleSuchen.Offset(1, 0).Select
End If
End With
With Application.Workbooks("Joghurt.xlsx")
Set ZelleSuchen = fncSuchen(wksSuche:=.Worksheets(53), Spalte:=6, varWert:=varSuchwert)
If Not ZelleSuchen Is Nothing Then
.Activate
.Worksheets(53).Activate
ZelleSuchen.Offset(1, 0).Select
End If
End With
Fehler:
With Err
strMsg = "Fehler-Nr.: " & .Number & vbLf & .Description
Select Case .Number
Case 0 'alles OK
Case 9
MsgBox strMsg & vbLf & vbLf _
& "Dateiname oder Blatt nicht gefunden", _
vbOKOnly, "Fehler - Maro: Suche Kaktuswert"
Case Else
MsgBox strMsg, vbOKOnly, "Fehler - Maro: Suche Kaktuswert"
End Select
End With
End Sub
Function fncSuchen(wksSuche As Worksheet, Spalte As Long, _
varWert As Variant) As Range
'Zelle in letzter Zeile mit dem gesuchten Wertes
'wksSheet = Tabellenblatt in dem gesucht werden soll
'Spalte = Nummer der Spalte in der gesucht werden soll
'varWer = zu suchender Wert
On Error GoTo Fehler
With wksSuche
Set fncSuchen = .Columns(Spalte).Find(What:=varWert, _
After:=.Cells(.Rows.Count, Spalte), LookIn:=xlValues, _
lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
If fncSuchen Is Nothing Then
MsgBox "Wert """ & varWert & """ in Mappe """ & .Parent.Name _
& """ - Tabelle """ & .Name & """ nicht gefunden!", _
vbOKOnly, "Suchen"
End If
End With
Fehler:
End Function