Moin,
ich möchte gerne aus einem Tabellenblatt eine Zahl (sverweis) auslesen und die gefundene Zahl dann im Bereich A1:A101 in einem anderen Tabellenblatt finden und diese Zele markieren.
Er markiert die Zelle auch, zeigt aber einen Laufzeitfehler an... .
Hast Du eine Idee?
Sub DruckMappeUndBescheinigungen()
Dim wksZiel As Worksheet 'später relevant
Dim Blattname As String 'korrekt, hier wird der Name des Tabellenblattes ausgelesen, das aufgerufen werden soll für die Suche des sverweises
Dim rng As Range
Dim sverweis As String 'der sverweis ist eine Zahl, die ich brauche
sverweis = Range("AA1").Value
Blattname = Range("AS3").Value
'prüft, ob Bescheinigungen gedruckt werden sollen oder ob da eine o steht
If Range("K49").Value = "0" Then
'wechselt in das Tabellenblatt des Monats aus dem die Mappe gedruckt werden sollte
Worksheets(Blattname).Activate
'Speichert den Wert des aktuellen Sverweises
Set rng = Range("A1:A101").Find(What:=sverweis, LookAt:=xlWhole).Activate
LG
Manu
|