Thema Datum  Von Nutzer Rating
Antwort
24.02.2025 11:03:07 Dirk
Solved
24.02.2025 14:19:45 Dirk
NotSolved
Rot Kopiervorgang vereinfachen
 24.02.2025 14:22:20 Gast87351
NotSolved

Ansicht des Beitrags:
Von:
Gast87351		 Datum:
24.02.2025 14:22:20		 Views:
41		 Rating:
     
Antwort:
  Ja
Thema:
Kopiervorgang vereinfachen

Zum Beispiel mit so:
 

Sub kopieren()
    Dim zielBlatt As Worksheet
    Dim quellBlatt As Worksheet
    Dim zielBereiche As Variant
    Dim quellBereiche As Variant

    Set zielBlatt = Worksheets("Parameterschnittstelle_Inventor")
    Set quellBlatt = Worksheets("Parameter")

    zielBereiche = Array("G37", "G41", ... etc.)

    quellBereiche = Array("H8", "H9", etc.)

    Dim i As Integer
    For i = LBound(zielBereiche) To UBound(zielBereiche)
        zielBlatt.Range(zielBereiche(i)).Value = quellBlatt.Range(quellBereiche(i)).Value
    Next i
End Sub

 

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
24.02.2025 11:03:07 Dirk
Solved
24.02.2025 14:19:45 Dirk
NotSolved
Rot Kopiervorgang vereinfachen
 24.02.2025 14:22:20 Gast87351
NotSolved