PDA

Vollständige Version anzeigen : Problem mit Array


Spunkmeyer
13.07.2015, 09:47
Sub VerweisTabb()



useRow = Sheets(3).UsedRange.Rows.Count

Dim Int1 As Integer
Dim Int2 As Integer


Dim ar(1 To 43, 1 To 2) As Variant

ar(1, 1) = "Bakt"
ar(2, 1) = "Legionellen"
ar(3, 1) = "Tagesanalyse"
ar(4, 1) = "CFA"
ar(5, 1) = "GSW"
ar(6, 1) = "Rückstellprobe"
ar(7, 1) = "Titro"
ar(8, 1) = "Titro(Ks + Kb)"
ar(9, 1) = "ICP / AAS"
ar(10, 1) = "ICP / AAS (R)"
ar(11, 1) = "TOC"
ar(12, 1) = "LHKW"
ar(13, 1) = "LHKW + Thiosulfat"
ar(14, 1) = "PBSM"
ar(15, 1) = "Hg"
ar(16, 1) = "AOX"
ar(17, 1) = "AOX (Unterauftrag)"
ar(18, 1) = "Sauerstoff"
ar(19, 1) = "PAK"
ar(12, 1) = "PAK + Thiosulfat"
ar(21, 1) = "Vinylchlorid"
ar(22, 1) = "Epichlorhydrin"
ar(23, 1) = "Benzol"
ar(24, 1) = "Cyanid"
ar(25, 1) = "Bromat"
ar(26, 1) = "Chlor, ClO2, ClO2-"
ar(27, 1) = "Phenolindex"
ar(28, 1) = "Stickstoff gesamt"
ar(29, 1) = "Acrylamid"
ar(30, 1) = "CSB"
ar(31, 1) = "Chlorophyll"
ar(32, 1) = "BSB5"
ar(33, 1) = "absetzbare Stoffe"
ar(34, 1) = "abfiltrierbare Stoffe"
ar(35, 1) = "Kohlenwasserstoffe"
ar(36, 1) = "KMnO4-Verbrauch"
ar(37, 1) = "Benzol / Vinylchlorid"
ar(38, 1) = "TC / TIC"
ar(39, 1) = "Stagnation (R)"
ar(40, 1) = "Stagnation"
ar(41, 1) = "Uran"
ar(42, 1) = "Chlor (Küvettentest)"
ar(43, 1) = "Sonstige"

ar(1, 2) = 1
ar(2, 2) = 2
ar(3, 2) = 3
ar(4, 2) = 4
ar(5, 2) = 5
ar(6, 2) = 6
ar(7, 2) = 7
ar(8, 2) = 8
ar(9, 2) = 9
ar(10, 2) = 10
ar(11, 2) = 11
ar(12, 2) = 12
ar(13, 2) = 13
ar(14, 2) = 14
ar(15, 2) = 15
ar(16, 2) = 16
ar(17, 2) = 17
ar(18, 2) = 18
ar(19, 2) = 19
ar(12, 2) = 20
ar(21, 2) = 21
ar(22, 2) = 22
ar(23, 2) = 23
ar(24, 2) = 24
ar(25, 2) = 25
ar(26, 2) = 26
ar(27, 2) = 27
ar(28, 2) = 28
ar(29, 2) = 29
ar(30, 2) = 30
ar(31, 2) = 31
ar(32, 2) = 32
ar(33, 2) = 33
ar(34, 2) = 34
ar(35, 2) = 35
ar(36, 2) = 36
ar(37, 2) = 37
ar(38, 2) = 38
ar(39, 2) = 39
ar(40, 2) = 40
ar(41, 2) = 41
ar(42, 2) = 42
ar(43, 2) = 43

For Int1 = 2 To useRow
For Int2 = 1 To 43
If Sheets(3).Cells(Int1, 5).Value = ar(Int2, 2) Then
Sheets(3).Cells(Int1, 4).Value = ar(Int2, 1)
End If
Next Int2
Next Int1






End Sub



Wieso erkennt er nicht, dass das Value 12 ist und setzt die Zelle leer?

jack_D
13.07.2015, 10:23
Moin Moin,

weil der Wert vielleicht 17 ist?

Grüße

Spunkmeyer
13.07.2015, 10:36
Danke für deine Antwort.

Hmmm... 17?

Wenn ich den Code im Einzelschrittverfahren durchlaufen lasse hängt er immer wieder bei der verk*piep* 12.
Der Wert in Blatt3, Spalte 5 ist definitiv 12. :grins:
Ich sehe den Wald vor lauter Bäumen nicht...

jack_D
13.07.2015, 10:45
Hallo,

und ich seh die Zahlen nicht. :rolleyes:
Daher, lade doch bitte eine Mustermappe hoch.

Ansonsten wird es die 17 sein, oder alternativ die 43. (Die ist es meistens)

Grüße

Spunkmeyer
13.07.2015, 10:53
Ich hoffe, das klappt. Mappe12

Spunkmeyer
13.07.2015, 11:03
Ich habs! Flüchtigkeitsfehler im Code! Anstatt 20 habe ich 12:p geschrieben. Sorry!

jack_D
13.07.2015, 11:08
Gute Frage, Ich seh da nicht durch.

Der Springt bei Array Wert 11 auf die 20 statt auf die 12 und anschliessend wieder auf die 13

Ich hab keinen Dunst woran das liegt.

Sorry