Thema Datum  Von Nutzer Rating
Antwort
Rot Zähler stimmt nicht
 15.07.2016 14:31:38 Phillip
NotSolved
15.07.2016 14:53:00 User17330
Solved
15.07.2016 14:58:06 Phillip
NotSolved
17.07.2016 18:12:52 Nobody
NotSolved

Ansicht des Beitrags:
Von:
Phillip		 Datum:
15.07.2016 14:31:38		 Views:
1733		 Rating:
     
Antwort:
  Ja
Thema:
Zähler stimmt nicht

Hallo,

 

ich weiß nicht, ob es die Nerven sind, oder ich einfach zu dumm bin. Ich habe folgenden Code geschrieben:

 

?
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
Private Sub CommandButton1_Click()
 
Dim i As Integer
Dim a As Integer
 
i = 4
j = 6
a = 0
c = 22
 
'Application.ScreenUpdating = False
 
Range("B9:B12").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
 
Do
 
 
 
MsgBox i
 
 
Sheets("Materialeinsatz").Select
 
If Sheets("Materialeinsatz").Range("A" & i).Value <> "" Then
 
Sheets("Materialeinsatz").Range("B" & i).Copy
 
Sheets("Materialeinsatz Gesamt").Select
Sheets("Materialeinsatz Gesamt").Cells(9, 1000).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
Sheets("Materialeinsatz").Range("G" & j).Copy
 
 
Sheets("Materialeinsatz Gesamt").Select
Sheets("Materialeinsatz Gesamt").Cells(10, 1000).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
Sheets("Materialeinsatz").Range("L" & j).Copy
 
 
Sheets("Materialeinsatz Gesamt").Select
Sheets("Materialeinsatz Gesamt").Cells(11, 1000).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
Sheets("Materialeinsatz").Range("M" & j).Copy
 
 
Sheets("Materialeinsatz Gesamt").Select
Sheets("Materialeinsatz Gesamt").Cells(12, 1000).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
End If
 
a = a + 1
 
i = i + c * a
j = j + c * a
 
Loop Until Sheets("Materialeinsatz").Range("A" & i).Value = ""
 
Sheets("Materialeinsatz Gesamt").Select
 
'Application.ScreenUpdating = True
 
End Sub

Leider zählt der Zähler immer 4, 26, 70 und lässt jedesmal die 48 aus, ich sehe den Fehler einfach nicht, da 4+22*2 bei mir 48 ergibt, nach dem 2. Loop...

 

Ich hoffe ihr könnt mir helfen, mit freundlichen Grüßen, Phillip

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 Zähler stimmt nicht
 15.07.2016 14:31:38 Phillip
NotSolved
15.07.2016 14:53:00 User17330
Solved
15.07.2016 14:58:06 Phillip
NotSolved
17.07.2016 18:12:52 Nobody
NotSolved