Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 424
 11.10.2024 18:12:54 Manuela
NotSolved
11.10.2024 21:46:27 ralf_b
NotSolved
11.10.2024 22:11:37 Gast29096
NotSolved
11.10.2024 23:30:23 Gast29097
NotSolved

Ansicht des Beitrags:
Von:
Manuela		 Datum:
11.10.2024 18:12:54		 Views:
166		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler 424

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 424
 11.10.2024 18:12:54 Manuela
NotSolved
11.10.2024 21:46:27 ralf_b
NotSolved
11.10.2024 22:11:37 Gast29096
NotSolved
11.10.2024 23:30:23 Gast29097
NotSolved