array einlesen und auslesen

Bild

Betrifft: array einlesen und auslesen von: Jonny
Geschrieben am: 08.03.2005 15:12:11

Hallo zusammen,

ich will den inhalt der Spalte A in ein Array speichern und später dann in z. b. Spalte B wieder ausgeben.
Ich will aber die leeren Zellen in Spalte A nicht mitabspeichern.
Ich hab schon was entwickelt, aber es hakt immer noch.. er speichert die leeren zellen mit ab.

Dim a As Integer
Dim Pool(55)

a = 1

For i = 1 To 55
If ActiveSheet.Cells(i, 1) <> 0 Then _
Pool(a) = Cells(i, 1)
a = a + 1
Next i

und wie kann ich dann später die Datensätze wieder abrufen!?
hab es mit :

For i = 1 To a
Cells(i, 8) = Pool(i)
Next i

versucht aber hier meckert er auch...

danke...

Bild


Betrifft: AW: array einlesen und auslesen von: Tobias Marx
Geschrieben am: 08.03.2005 15:25:38

Servus!

Also ich bin zwar kein "Experte", aber du ueberpruefst in deinem oberen Code, ob entweder "0" drinsteht oder "nicht 0" - das wuerde aber heissen, "" ist auch nicht "0", also wirds uebernommen. Also aender den Code mal folgendermassen ab:
If ActiveSheet.Cells(i, 1).Value <> 0 Then
usw.

Ich hoffe, der Syntax is korrekt, wie gesagt, ich bin kein Excel-Freak, aber die Ueberlegung ansich muesste korrekt sein.

Zum Auslesen eines Arrays weiss ich allerdings nix, hab ich noch nie gemacht...


Gruss

Tobias


Bild


Betrifft: AW: array einlesen und auslesen von: Tobias Marx
Geschrieben am: 08.03.2005 15:28:04

Servus!

Hab nen Fehler in meiner Syntax (achja, Copy&Paste ist ja so schoen - aendern sollte mans trotzdem!):

If ActiveSheet.Cells(i, 1).Value <> "" Then

Gruss

Tobias


Bild


Betrifft: AW: array einlesen und auslesen von: Jonny
Geschrieben am: 08.03.2005 15:32:52

Hi Tobias,

das hab ich auch schon versucht, aber er speichert komischerweise trotzdem die leeren Zellen mit ab.!?

danke für deine Bemühungen...


Bild


Betrifft: AW: array einlesen und auslesen von: ingoG
Geschrieben am: 08.03.2005 15:33:28

Hallo Jonny,
versuchs mal so:

a = 0
For i = 1 To 55
If ActiveSheet.Cells(i, 1) <> "" Then
a = a + 1
Pool(a) = Cells(i, 1)
end if
Next i

For i = 1 To a
Cells(i, 8) = Pool(i)
Next i


Gruß Ingo
PS eine Rückmeldung wäre nett...


Bild


Betrifft: AW: array einlesen und auslesen von: Jonny
Geschrieben am: 08.03.2005 15:46:22

hi ingo,

dein code hat leider auch einen Fehler...

er geht nicht richtig mit den leeren Zeilen um...

versuchst mal selber...


Bild


Betrifft: AW: array einlesen und auslesen von: IngoG
Geschrieben am: 08.03.2005 15:54:50

Hallo nochmal,

also bei mir funzt folgender Code (hab nur das Blatt nochmal spezifiziert...)

Gruß Ingo


Sub bbbb()
Dim pool(55)    As String
Dim a&
Dim i&
a = 0
For i = 1 To 55
    If ActiveSheet.Cells(i, 1) <> "" Then
        a = a + 1
        pool(a) = ActiveSheet.Cells(i, 1)
    End If
Next i
For i = 1 To a
    ActiveSheet.Cells(i, 8) = pool(i)
Next i
End Sub



Bild


Betrifft: AW: array einlesen und auslesen von: Jonny
Geschrieben am: 08.03.2005 15:59:32

Du bist ein Gott,

danke danke danke...


Bild


Betrifft: Ich habs schon geahnt ;-) Danke für die RM oT von: IngoG
Geschrieben am: 08.03.2005 16:01:34

.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "array einlesen und auslesen"