Cells(i,6).Value gibt 0 obwohl in Zelle Text steht

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Cells(i,6).Value gibt 0 obwohl in Zelle Text steht von: Christian
Geschrieben am: 15.02.2005 12:52:38

Hallo,

ich habe eine große Datenmenge, von der ich bestimmte Inhalte addieren muss, wenn die Datensätze in einigen Parametern übereinstimmen. Dafür hab ich anliegenden Code geschrieben. Der ist eigentlich ganz einfach. Nur gibt er für jede Cells(i, "egal welche Zahl").Text oder .Value eine 0 zurück, obwohl dass im Datensatz nicht so ist. Mit i hat er kein Problem. Er überspringt mir die If-Schleifen, da ja keine zutrifft, da alle Werte 0 sind. Ich bin da völlig ratlos.

Hier mein Code:

Private Sub CommandButton1_Click()
Dim Zeile
Dim Werte(6) As Long
Dim S As Long
Dim i
Sheets("Daten").Activate
Zeile = ActiveCell.SpecialCells(xlLastCell).Row
For i = 2 To Zeile
Sheets("Daten").Activate
Werte(1) = Cells(i, 8).Value
Werte(2) = Cells(i, 9).Value
Werte(3) = Cells(i, 10).Value
Werte(4) = Cells(i, 11).Value
Werte(5) = Cells(i, 12).Value
Werte(6) = Cells(i, 13).Value
 If Cells(i, 5).Text = "Handbuch" Then
    If Cells(i, 6).Text = "Deutsch" Then
       If Cells(i, 7) = "Chinesisch" Then S = 26
       If Cells(i, 7).Text = "Dänisch" Then S = 27
       If Cells(i, 7).Text = "Englisch" Then S = 28
       If Cells(i, 7).Text = "Estnisch" Then S = 29
       If Cells(i, 7).Text = "Finnisch" Then S = 30
       If Cells(i, 7).Text = "Flämisch" Then S = 31
       If Cells(i, 7).Text = "Französisch" Then S = 32
       If Cells(i, 7).Text = "Griechisch" Then S = 33
       If Cells(i, 7).Text = "Italienisch" Then S = 34
       If Cells(i, 7).Text = "Japanisch" Then S = 35
       If Cells(i, 7).Text = "Koreanisch" Then S = 36
       If Cells(i, 7).Text = "Lettisch" Then S = 37
       If Cells(i, 7).Text = "Litauisch" Then S = 38
       If Cells(i, 7).Text = "Niederländisch" Then S = 39
       If Cells(i, 7).Text = "NL(BE)" Then S = 40
       If Cells(i, 7).Text = "Polnisch" Then S = 41
       If Cells(i, 7).Text = "Portugiesisch" Then S = 42
       If Cells(i, 7).Text = "Russisch" Then S = 43
       If Cells(i, 7).Text = "Schwedisch" Then S = 44
       If Cells(i, 7).Text = "Slowakisch" Then S = 45
       If Cells(i, 7).Text = "Slowenisch" Then S = 46
       If Cells(i, 7).Text = "Spanisch" Then S = 47
       If Cells(i, 7).Text = "Tschechisch" Then S = 48
       If Cells(i, 7).Text = "Ungarisch" Then S = 49
    End If
    If Cells(i, 6).Text = "Englisch" Then
       If Cells(i, 7).Text = "Chinesisch" Then S = 2
       If Cells(i, 7).Text = "Dänisch" Then S = 3
       If Cells(i, 7).Text = "Deutsch" Then S = 4
       If Cells(i, 7).Text = "Estnisch" Then S = 5
       If Cells(i, 7).Text = "Finnisch" Then S = 6
       If Cells(i, 7).Text = "Flämisch" Then S = 7
       If Cells(i, 7).Text = "Französisch" Then S = 8
       If Cells(i, 7).Text = "Griechisch" Then S = 9
       If Cells(i, 7).Text = "Italienisch" Then S = 10
       If Cells(i, 7).Text = "Japanisch" Then S = 11
       If Cells(i, 7).Text = "Koreanisch" Then S = 12
       If Cells(i, 7).Text = "Lettisch" Then S = 13
       If Cells(i, 7).Text = "Litauisch" Then S = 14
       If Cells(i, 7).Text = "Niederländisch" Then S = 15
       If Cells(i, 7).Text = "NL(BE)" Then S = 16
       If Cells(i, 7).Text = "Polnisch" Then S = 17
       If Cells(i, 7).Text = "Portugiesisch" Then S = 18
       If Cells(i, 7).Text = "Russisch" Then S = 19
       If Cells(i, 7).Text = "Schwedisch" Then S = 20
       If Cells(i, 7).Text = "Slowakisch" Then S = 21
       If Cells(i, 7).Text = "Slowenisch" Then S = 22
       If Cells(i, 7).Text = "Spanisch" Then S = 23
       If Cells(i, 7).Text = "Tschechisch" Then S = 24
       If Cells(i, 7).Text = "Ungarisch" Then S = 25
    End If
  End If
If Cells(i, 5).Text = "Onlinehilfe" Then
    If Cells(i, 6).Text = "Deutsch" Then
       If Cells(i, 7).Text = "Chinesisch" Then S = 76
       If Cells(i, 7).Text = "Dänisch" Then S = 77
       If Cells(i, 7).Text = "Englisch" Then S = 78
       If Cells(i, 7).Text = "Estnisch" Then S = 79
       If Cells(i, 7).Text = "Finnisch" Then S = 80
       If Cells(i, 7).Text = "Flämisch" Then S = 81
       If Cells(i, 7).Text = "Französisch" Then S = 82
       If Cells(i, 7).Text = "Griechisch" Then S = 83
       If Cells(i, 7).Text = "Italienisch" Then S = 84
       If Cells(i, 7).Text = "Japanisch" Then S = 85
       If Cells(i, 7).Text = "Koreanisch" Then S = 86
       If Cells(i, 7).Text = "Lettisch" Then S = 87
       If Cells(i, 7).Text = "Litauisch" Then S = 88
       If Cells(i, 7).Text = "Niederländisch" Then S = 89
       If Cells(i, 7).Text = "NL(BE)" Then S = 90
       If Cells(i, 7).Text = "Polnisch" Then S = 91
       If Cells(i, 7).Text = "Portugiesisch" Then S = 92
       If Cells(i, 7).Text = "Russisch" Then S = 93
       If Cells(i, 7).Text = "Schwedisch" Then S = 94
       If Cells(i, 7).Text = "Slowakisch" Then S = 95
       If Cells(i, 7).Text = "Slowenisch" Then S = 96
       If Cells(i, 7).Text = "Spanisch" Then S = 97
       If Cells(i, 7).Text = "Tschechisch" Then S = 98
       If Cells(i, 7).Text = "Ungarisch" Then S = 99
    End If
    If Cells(i, 6).Text = "Englisch" Then
       If Cells(i, 7).Text = "Chinesisch" Then S = 52
       If Cells(i, 7).Text = "Dänisch" Then S = 53
       If Cells(i, 7).Text = "Deutsch" Then S = 54
       If Cells(i, 7).Text = "Estnisch" Then S = 55
       If Cells(i, 7).Text = "Finnisch" Then S = 56
       If Cells(i, 7).Text = "Flämisch" Then S = 57
       If Cells(i, 7).Text = "Französisch" Then S = 58
       If Cells(i, 7).Text = "Griechisch" Then S = 59
       If Cells(i, 7).Text = "Italienisch" Then S = 60
       If Cells(i, 7).Text = "Japanisch" Then S = 61
       If Cells(i, 7).Text = "Koreanisch" Then S = 62
       If Cells(i, 7).Text = "Lettisch" Then S = 63
       If Cells(i, 7).Text = "Litauisch" Then S = 64
       If Cells(i, 7).Text = "Niederländisch" Then S = 65
       If Cells(i, 7).Text = "NL(BE)" Then S = 66
       If Cells(i, 7).Text = "Polnisch" Then S = 67
       If Cells(i, 7).Text = "Portugiesisch" Then S = 68
       If Cells(i, 7).Text = "Russisch" Then S = 69
       If Cells(i, 7).Text = "Schwedisch" Then S = 70
       If Cells(i, 7).Text = "Slowakisch" Then S = 71
       If Cells(i, 7).Text = "Slowenisch" Then S = 72
       If Cells(i, 7).Text = "Spanisch" Then S = 73
       If Cells(i, 7).Text = "Tschechisch" Then S = 74
       If Cells(i, 7).Text = "Ungarisch" Then S = 75
   End If
End If
If S <> 0 Then
Sheets("Stat").Activate
Cells(S, 4).Value = Cells(S, 4).Value + Werte(1)
Cells(S, 5).Value = Cells(S, 5).Value + Werte(2)
Cells(S, 6).Value = Cells(S, 6).Value + Werte(3)
Cells(S, 7).Value = Cells(S, 7).Value + Werte(4)
Cells(S, 8).Value = Cells(S, 8).Value + Werte(5)
Cells(S, 9).Value = Cells(S, 9).Value + Werte(6)
End If
Next i
Sheets("Stat").Activate
End Sub


Bild


Betrifft: AW: Cells(i,6).Value gibt 0 obwohl in Zelle Text steht von: Uduuh
Geschrieben am: 15.02.2005 13:00:45

Hallo,
lass .Value und .Text weg.

Gruß aus'm Pott
Udo

P.S. anstatt der vielen Ifs solltest du Select Case benutzen.


Bild


Betrifft: AW: Cells(i,6).Value gibt 0 obwohl in Zelle Text steht von: Christian
Geschrieben am: 15.02.2005 13:24:25

Das Weglassen von .Text und .Value ändert leider nichts!
Auch mit Range("F2") gibt er 0 zurück


Bild


Betrifft: AW: Cells(i,6).Value gibt 0 obwohl in Zelle Text steht von: u_
Geschrieben am: 15.02.2005 13:42:00

Hallo,
kannst du die Mappe mal hochladen?

Gruß


Bild


Betrifft: AW: Cells(i,6).Value gibt 0 obwohl in Zelle Text steht von: Harry
Geschrieben am: 15.02.2005 22:27:36

Hallo Christian,

die Variable i hat Long-Zugriff (habe gesehen: Dim i, Dim Zeile)
ebenso die Variable Zeile (Long- bzw. Integer-Zugriff)

Probier es mal so:

...
Dim i, Zeile As Long
...

oder:

...
Dim i As Long
Dim Zeile As Integer
...

Gruss Harry


Bild


Betrifft: AW: Cells(i,6).Value gibt 0 obwohl in Zelle Text s von: Bernd Wies
Geschrieben am: 15.02.2005 23:24:46

Hi,

versuch doch mal statt *****Zeile = ActiveCell.SpecialCells(xlLastCell).Row******
dieses ***** Zeile = ActiveCell.SpecialCells(xlCellTypeLastCell).Row ****

gruß

Bernd


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Daten aus geschlossener Mappe lesen, möglich?"