Thema Datum  Von Nutzer Rating
Antwort
Rot Case Funktion
12.01.2023 10:12:04 Gast001
NotSolved
12.01.2023 10:17:59 Der Steuerfuzzi
NotSolved
12.01.2023 10:25:42 Gast14893
NotSolved
12.01.2023 15:32:48 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast001		 Datum:
12.01.2023 10:12:04		 Views:
731		 Rating:
     
Antwort:
  Ja
Thema:
Case Funktion

Hallo,

ich möchte folgende Prozedur schreiben:

Ich habe eine Arbeitsmappe mit mehreren Blättern. Ich möchte, dass bei auslösen eines Command Buttons jedoch nur ausgewählte Blätter ausgewählt werden. Anschließend sollen auf diesen Arbeitsblättern in Abhängigkeit von dem Wert der in C6 auf diesen Blättern steht Formeln copiert und eingefügt werden. 

Folgenden Ansatz habe ich gestartet, der jedoch trotz ausbleibender Fehlermeldung nicht funktioniert: 

Sub ActualÜbertragNachPeriode()
  Dim ws As Worksheet
  For Each ws In Worksheets
  
  If ws.Name = "PAR_Parcel_LC" or ws.Name = "PAR_Mail_LC" Then

  Select Case ws.Range("C6").Value
    
        Case P03
        ws.Range("L14:L42").Copy
        ws.Range("M14:M42").PasteSpecial xlPasteFormulas
        Debug.Print ws.Name & "Formel kopiert"  

        Case P04
        ws.Range("L14:L42").Copy
        ws.Range("O14:O42").PasteSpecial xlPasteFormulas
        Debug.Print ws.Name & "Formel kopiert"

 End Select
 End If
             Next ws
  End Sub

 

ich bitte um Hilfe :)     

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 Case Funktion
12.01.2023 10:12:04 Gast001
NotSolved
12.01.2023 10:17:59 Der Steuerfuzzi
NotSolved
12.01.2023 10:25:42 Gast14893
NotSolved
12.01.2023 15:32:48 Mase
NotSolved