Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array

Array
15.04.2003 08:54:53
Tobias
Hallo,
kennt jemand eine Lösung wie man eine String-Zeile die aus Wörter und Zahlen besteht in einem eindimensionalen Datenfeld zu speichern.
Nachfolgend möchte ich über den Index auf den gewählten Teil zugreifen.
Nachfolgend ein Beispiel: (Leerzeichen sind Unterstriche)

Karin:_____90.0003_:Bernd:__76.546__mm,Inge:____45.0897
Danke

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Array
15.04.2003 09:19:57
Ramses

Hallo,

was verstehst du denn unter einem eindimensionalen Array ?


Option Explicit

Sub Create_OneDimension_Array()
Dim DemoArr As Variant, i As Integer
ReDim DemoArr(500)
For i = 1 To 500
    DemoArr(i) = i & " " & Time
Next i
Debug.Print DemoArr(450)
End Sub 

     Code eingefügt mit Syntaxhighlighter 1.16


Wenn du Namen hast und zusätzliche Werte ist es eigentlich schon mehrdimensional.

Hier ein kleines Beispiel,... weitere Varianten auf Anfrage gerne erhältlich :-)
Du musst deinen String lediglich mit einer Schleife zerlegen und dann den einzelnen Datenfeldern zuweisen:


'Mehrdimensionale Datenzeile erstellen
'Datenzeile definieren
Public Type Datenzeile
    'Inhaltsegmente definieren
    Seite As Single
    Nummer As Single
    Text As String
    Zeit As Date
    Typ As String
End Type

Sub Create_Titel()
Dim Titel(500) As Datenzeile
Dim i As Integer
'Schleife
For i = 1 To 5
    'Füllen der Datenzeile
    Titel(i).Seite = "A"
    Titel(i).Nummer = i
    Titel(i).Text = "A" & i
    Titel(i).Typ = "A" & i + 2
Next i

'Ausdrucken der Titelnummer aus der 2. Zeile des Array's
Debug.Print Titel(2).Nummer
End Sub
'---------------------------- 

     Code eingefügt mit Syntaxhighlighter 1.16


Gruss Rainer


Anzeige
Re: Array
15.04.2003 09:40:35
Tobias

Hallo Rainer,
schicke mir bitte noch eine andere Version. Ich verstehe nicht ganz wo ich den String zuweisen soll.
Damit ich z.B. :Bernd: auslese.
Danke Jan

Re: Array
15.04.2003 09:47:25
Ramses

Hallo,

Zuerst definierst du eine Schleife welche deine Datenfeld-trennzeichen zählt, z.B. das Semikolon.
Damit weisst du schon mal wie gross dein Array wird und kannst in korrekt dimensionieren.
Anschliessend programmierst du eine Schleife die den String zerlegt und weisst die Ergebnisse dem Array zu



Sub Create_OneDimension_Array()
Dim DemoArr As Variant, i As Integer
ReDim DemoArr(500)
For i = 1 To 500
    'Dein Code zum auslesen bzw. zerlegen des Strings
    DemoArr(i) = " Bernd" 'bzw. den Teil des Strings den zu ausgelesen hast
Next i
Debug.Print DemoArr(450)
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige