Thema Datum  Von Nutzer Rating
Antwort
Rot Spaltenweise komplexe Wiederholungen
 27.08.2020 23:35:54 Mike
Solved
28.08.2020 04:48:12 Werner
NotSolved
28.08.2020 11:51:51 Gast67020
NotSolved
28.08.2020 10:09:29 Gast01233
NotSolved

Ansicht des Beitrags:
Von:
Mike		 Datum:
27.08.2020 23:35:54		 Views:
1094		 Rating:
     
Antwort:
 Nein
Thema:
Spaltenweise komplexe Wiederholungen
?
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Hallo zusammen,
 
ich habe nachfolgenden Code geschrieben und scheitere daran, eine ordentliche Schleife zu generieren. Ich habe alles
in den Code geschrieben, was sich bei jeder Wiederholung ändert. Ich komme tatsächlich nicht weiter. Die Schleife wird
endlich oft durchlaufen, daher dachte ich an eine For Next Schleife, bekomme diese aber irgendwie nicht programmiert.
 
Ich hoffe sehr, dass mir jemand eine Lösung als Code generieren kann. Vielen Dank dafür!
 
 
Sub KVG_Start()
 
Application.ScreenUpdating = False
 
'Hier beginnt die Schleife
 
    Worksheets("TAB1").Range("B2:K2").Select  'Zeile +1 bei jeder Wiederholung
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TAB2").Select
    Range("B3").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("TAB3").Select
    Range("J31,J32,J33,J35,J36,J38,J40,J42,J43,J45,J46,J48,J49,J51").Select
    Selection.Copy
    Sheets("TAB1").Select
    Range("N12").Select   'Spalte +1 nach rechts bei jeder Wiederholung
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("N27").Select   'Spalte +1 nach rechts bei jeder Wiederholung
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IFERROR(IF(R[-15]C>1,1,R[-15]C),0)"
    Range("N27:N40").Select   'Spalte +1 nach rechts bei jeder Wiederholung
    Selection.FillDown
    Range("N41").Select   'Spalte +1 nach rechts bei jeder Wiederholung
    ActiveCell.FormulaR1C1 = "=SUM(R[-14]C:R[-1]C)/14"
 
'Hier endet die Schleife und soll sich wiederholen.
 
    Worksheets("TAB1").Range("B3:K3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TAB2").Select
    Range("B3").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("TAB3").Select
    Range("J31,J32,J33,J35,J36,J38,J40,J42,J43,J45,J46,J48,J49,J51").Select
    Selection.Copy
    Sheets("TAB1").Select
    Range("O12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("O27").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IFERROR(IF(R[-15]C>1,1,R[-15]C),0)"
    Range("O27:O40").Select
    Selection.FillDown
    Range("O41").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-14]C:R[-1]C)/14"
 
    Worksheets("TAB1").Range("B4:K4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TAB2").Select
    Range("B3").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Sheets("TAB3").Select
    Range("J31,J32,J33,J35,J36,J38,J40,J42,J43,J45,J46,J48,J49,J51").Select
    Selection.Copy
    Sheets("TAB1").Select
    Range("P12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("P27").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IFERROR(IF(R[-15]C>1,1,R[-15]C),0)"
    Range("P27:P40").Select
    Selection.FillDown
    Range("P41").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-14]C:R[-1]C)/14"
     
Application.ScreenUpdating = True
     
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:
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
Rot Spaltenweise komplexe Wiederholungen
 27.08.2020 23:35:54 Mike
Solved
28.08.2020 04:48:12 Werner
NotSolved
28.08.2020 11:51:51 Gast67020
NotSolved
28.08.2020 10:09:29 Gast01233
NotSolved