Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Werte in ein Array lesen
zurück: for next schleife kombinieren weiter: ebay trader-API in VBA nutzen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Dennis7643
Gast


Verfasst am:
10. Jun 2011, 16:21
Rufname:

Werte in ein Array lesen - Werte in ein Array lesen

Nach oben
       Version: Office 2003

Liebes Forum,

ich würde gerne aus folgendem Sheet die werte in ein Array lesen.:

................A................B...............C...............D
1..............86.............45.............28.............73
2.....................................................................
3..............60.............96.............56.............91
4.....................................................................
5...............9..............64............32..............29
...


Für die meisten von euch wahrscheinlich Pillepalle, aber für mich als Neuling leider nicht ersichtlich, warum das nicht so geht wie ich mir das vorstelle. Mein bisheriger Anstz ist der:


Code:
Option Explicit
Private Sub CommandButton1_Click()

Dim CountRows As Long
Dim A As Integer
Dim i As Integer
Dim j As Integer
Dim ws As Worksheet
Set ws = Worksheets("Tabelle1")

j = 0
i = 0
A = 0
'CountRows = Worksheets("Tabelle1").UsedRange.Rows.Count
CountRows = ws.UsedRange.Rows.Count

Dim Array1 As Variant

For i  To CountRows Step 2
    For j  To 4
    Array1(A) = ws.Range(j & i).Value
    A = A + 1
    Next
Next


Leider funktioniert das so nicht. Ich wäre für jede Hilfe dankbar!

Lieben Gruß,
Dennis
Jumpy
z.Zt. täglich besser in Visio (+VBA)


Verfasst am:
10. Jun 2011, 16:47
Rufname: Ralph

AW: Werte in ein Array lesen - AW: Werte in ein Array lesen

Nach oben
       Version: Office 2003

Code:

For i = 1  To CountRows Step 2
    For j = 1  To 4
    Array1(A) = ws.Cells(i,j).Value
    A = A + 1
    Next j
Next i


oder ohne A:

Code:

For i = 1  To CountRows Step 2
    For j = 1  To 4
    Array1(INT(i/2)*4+j-1) = ws.Cells(i,j).Value
    Next j
Next i
Dennis7643
Gast


Verfasst am:
12. Jun 2011, 01:33
Rufname:


AW: Werte in ein Array lesen - AW: Werte in ein Array lesen

Nach oben
       Version: Office 2003

....funktioniert wunderbar!
Vielen Dank!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Pivottabelle - Werte ordnen 3 Gast 943 09. Sep 2005, 08:20
Gast Pivottabelle - Werte ordnen
Keine neuen Beiträge Excel Formeln: Automatisch immer die Werte aus letzter Spalte übernehmen??? 31 Provaeth 4031 19. Jul 2005, 13:29
ae Automatisch immer die Werte aus letzter Spalte übernehmen???
Keine neuen Beiträge Excel Formeln: Formel.....bitte lesen...bracuhe dringend hilfe 1 TheSkore 699 12. Jul 2005, 12:57
TheSkore Formel.....bitte lesen...bracuhe dringend hilfe
Keine neuen Beiträge Excel Formeln: Zufallszahl nicht doppelte werte?? 2 Knicky 1831 06. Jul 2005, 14:39
Gast Zufallszahl nicht doppelte werte??
Keine neuen Beiträge Excel Formeln: werte aus trendlinie übernehmen 3 Gast 7577 06. Apr 2005, 18:19
fl618 werte aus trendlinie übernehmen
Keine neuen Beiträge Excel Formeln: Werte auslesen und anzeigen 5 El-Gringo 2733 29. März 2005, 18:05
El-Gringo Werte auslesen und anzeigen
Keine neuen Beiträge Excel Formeln: Max/Min Werte Excel 2000 Formel/Tipp 5 Unregister 6687 11. März 2005, 19:37
rainberg Max/Min Werte Excel 2000 Formel/Tipp
Keine neuen Beiträge Excel Formeln: Vergleichen 2 Tabellen mit ausgabe der fehlenden werte 1 Julie 2923 25. Jan 2005, 16:53
fridgenep Vergleichen 2 Tabellen mit ausgabe der fehlenden werte
Keine neuen Beiträge Excel Formeln: Werte aus Projekttabelle 1 automatisch in Tabelle 2 + 3 ? 7 DerDoktor 3771 15. Jan 2005, 14:41
DerDoktor Werte aus Projekttabelle 1 automatisch in Tabelle 2 + 3 ?
Keine neuen Beiträge Excel Formeln: Will Werte addieren, in Bezug zu zwei anderen Spalten 3 Hardy_K_888 1971 02. Dez 2004, 12:00
ae Will Werte addieren, in Bezug zu zwei anderen Spalten
Keine neuen Beiträge Excel Formeln: Werte aus Tabelle zurückgebn 1 Spoonler 2266 22. Nov 2004, 15:54
ae Werte aus Tabelle zurückgebn
Keine neuen Beiträge Excel Formeln: Werte aus Liste mit Validation in Zelle 1 Gast 2516 18. Okt 2004, 15:20
icke Werte aus Liste mit Validation in Zelle
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: CSS Forum