Thema Datum  Von Nutzer Rating
Antwort
19.03.2021 20:54:38 Neuer Nutzer
NotSolved
19.03.2021 21:33:35 Gast29164
NotSolved
Rot Quelltextoptimierung
 20.03.2021 09:24:54 volti
NotSolved
20.03.2021 11:39:52 Neuer Nutzer
NotSolved
20.03.2021 12:08:31 volti
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
20.03.2021 09:24:54		 Views:
615		 Rating:
     
Antwort:
  Ja
Thema:
Quelltextoptimierung

Hallo,

hier noch eine Idee.

Benenne jeweils ein Feld in den betroffenen Zeilen z.B. mit "Zielzeile" und "Quellzeile" und verwende folgendes Makro als anpassbare Idee:

Da nur Werte übernommen werden, kannst Du Dir die Kopiererei auch sparen....

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17		  
Option Explicit

Sub Test()
  Dim sBer1() As String, sBer2() As String
  Dim i As Integer, iZlQ As Long, iZlZ As Long

  iZlZ = Range("Zielzeile").Row
  iZlQ = Range("Quellzeile").Row
  sBer1 = Split(Replace("A2:B2 D2:F2 H2 J2", "2", iZlZ))
  sBer2 = Split(Replace("E8:F8 G8:I8 C8 K8", "8", iZlQ))

  For i = 0 To UBound(sBer1)
      Worksheets("Ausgezahlt").Range(sBer1(i)).Value = _
      Worksheets("Offen").Range(sBer2(i)).Value
  Next i

End Sub
_________
viele Grüße
Karl-Heinz

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
19.03.2021 20:54:38 Neuer Nutzer
NotSolved
19.03.2021 21:33:35 Gast29164
NotSolved
Rot Quelltextoptimierung
 20.03.2021 09:24:54 volti
NotSolved
20.03.2021 11:39:52 Neuer Nutzer
NotSolved
20.03.2021 12:08:31 volti
NotSolved