Supportnet / Forum / Tabellenkalkulation
Tabellen als Datenfelder Einlesen
Frage
Hallo Zusammen
Ich Habe Eine Tabelle in Excell,
Diese würde ich gerne in Vba als Datenfeld Einlesen.
So in der Richtung:
Datenfeld(0 to 2,0 to 2)= Range("A1:C3")
das geht aber so nicht.
Vorschläge?
Danke.
Antwort 1 von nighty
hi all :)
ein beispiel :)
gruss nighty
Option Explicit
Sub EinLesen()
Dim datenfeld(8)
Dim index As Integer
Dim zelle As Range
For Each zelle In Range("A1:C3")
datenfeld(index) = zelle.Value
index = index + 1
Next zelle
End Sub
ein beispiel :)
gruss nighty
Option Explicit
Sub EinLesen()
Dim datenfeld(8)
Dim index As Integer
Dim zelle As Range
For Each zelle In Range("A1:C3")
datenfeld(index) = zelle.Value
index = index + 1
Next zelle
End Sub
Antwort 2 von nighty
hi all :)
oder mit automatischer abtastung von spalten wie zeilen :))
gruss nighty
Option Explicit
Sub EinLesen()
ReDim datenfeld(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row * ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column)
Dim index As Long
Dim zelle As Range
For Each zelle In Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column))
datenfeld(index) = zelle.Value
index = index + 1
Next zelle
End Sub
oder mit automatischer abtastung von spalten wie zeilen :))
gruss nighty
Option Explicit
Sub EinLesen()
ReDim datenfeld(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row * ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column)
Dim index As Long
Dim zelle As Range
For Each zelle In Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column))
datenfeld(index) = zelle.Value
index = index + 1
Next zelle
End Sub