Auf gewähltem Blatt gewünschte Zelle markieren
12.07.2004 12:53:27
thomas
untenstehendes Makro funktioniert bestens; damit wähle ich das gewünschte Blatt aus, indem ich den Inhalt der (Ausgangs)Zelle (die sich in Spalte C oder I befinden muss) mit dem Blattreiter vergleiche.
Nun möchte ich, dass ZUSÄTZLICH zur aktiven (Ausgangs)Zelle in Spalte C oder I die Zelle rechts (+1) neben der aktiven Zelle EINGELESEN wird, und dann dieser Wert mit den Werten in Spalte B des mit dem untenstehenden Makro selektieren Blattes verglichen wird und bei Übereinstimmung die entsprechende Zelle aktiviert wird.
Irgendwie muss ich also die Zelle neben der Ausgangszelle am Anfang des Makros einlesen und dann mit einem Makro wie unten die Aufgaben auf dem selektierten Blatt ausführen.
Jemand eine Idee?
thomas
Sub Seitenwahl()
'Tastenkombination: Strg a
Dim iWks As Integer
Dim sp As Integer
sp = ActiveCell.Column
If sp = 3 Or sp = 9 Then
For iWks = 1 To Worksheets.Count
If Worksheets(iWks).Name = ActiveCell.Value Then
Worksheets(iWks).Activate
End If
Next
Else
MsgBox "Zelle in falscher Spalte aktiv"
End If
End Sub
Anzeige