Thema Datum  Von Nutzer Rating
Antwort
25.01.2017 05:17:03 Steffen
NotSolved
Blau Kopieren von Zellen in einen andere Tabelle
 25.01.2017 11:40:34 Steffen
NotSolved

Ansicht des Beitrags:
Von:
Steffen		 Datum:
25.01.2017 11:40:34		 Views:
649		 Rating:
     
Antwort:
  Ja
Thema:
Kopieren von Zellen in einen andere Tabelle

Ok, nachdem ich noch einmal ein wenig geschlafen habe ist mir aufgefallen, dass ich hier keinen Code eingefügt habe, was ich gern noch nachholen würde, da es sonst vermutlich auch schwer wird, mir zu helfen. 

Das hier ist also mein aktueller Stand: 

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Range_Copy()
  Sheets("Tabelle1").Select
  ' Find the last row of data
  FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
  ' Loop through each row
    For x = 2 To FinalRow
        ' Decide if to copy based on column A
        ThisValue = Cells(x, 1).Value
          
        If ThisValue > "8999" Then
            Worksheets("Tabelle1").Range("B2").Copy _
            Destination:=Worksheets("PerformanceReport").Range("A2:A3")
            Worksheets("Tabelle1").Range("E2").Copy _
            Destination:=Worksheets("PerformanceReport").Range("L25")
            Worksheets("Tabelle1").Range("F2").Copy _
            Destination:=Worksheets("PerformanceReport").Range("B25")
            Worksheets("Tabelle1").Range("G2").Copy _
            Destination:=Worksheets("PerformanceReport").Range("G25")
            Worksheets("Tabelle1").Range("H2").Copy _
            Destination:=Worksheets("PerformanceReport").Range("F25")
            Worksheets("Tabelle1").Range("I2").Copy _
            Destination:=Worksheets("PerformanceReport").Range("H25")
            Worksheets("Tabelle1").Range("L2").Copy _
            Destination:=Worksheets("PerformanceReport").Range("B18")
            Worksheets("Tabelle1").Range("M2").Copy _
            Destination:=Worksheets("PerformanceReport").Range("J9")
            Worksheets("Tabelle1").Range("N2").Copy _
            Destination:=Worksheets("PerformanceReport").Range("B9")
            Worksheets("Tabelle1").Range("O2").Copy _
            Destination:=Worksheets("PerformanceReport").Range("F9")
            Worksheets("Tabelle1").Range("P2").Copy _
            Destination:=Worksheets("PerformanceReport").Range("L9")
            Worksheets("Tabelle1").Range("R2").Copy _
            Destination:=Worksheets("PerformanceReport").Range("M9")
         
        End If
      
                'Call PDF_per_EMail
      
    Next x
End Sub

Der letzt Call Aufruf ist lediglich zum exportieren und versenden per Mail da und liegt in einem anderen Makro.

Es funktioniert soweit auch "eigentlich", also ich bekomme keine Fehler ausgeworfen, allerdings macht er 5x das selbe. Das macht in diesem Fall ja auch Sinn, weil ich mit festen Zellen arbeite, da kann sich ja auch nichts verändern. 

 

Wie komme ich aber jetzt da hin, die festen Zellen gegen variable auszutauschen, sodass er nachdem er für Zeile 2 einmal durchgelaufen ist und die Mail versendet hat, mit Zeile 3 beginnt und das Spielchen so lange weiter treibt, bis in Spalte A kein Wert mehr steht, bzw. er kleiner als 8999 ist?

 

Lg

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
25.01.2017 05:17:03 Steffen
NotSolved
Blau Kopieren von Zellen in einen andere Tabelle
 25.01.2017 11:40:34 Steffen
NotSolved