Bitte um Hilfe bei Array und Schleifen
20.10.2008 15:02:00
chris
ich bin schon öfter hier gewesen und weiß das einem hier immer geholfen wird.
Deshalb habe ich heute eine frage und hoffe ihr könnt mir helfen.
Ich bin gerade dabei ein makro zu bauen.
Und wollte hier einmal nachfragen wie ihr das machen würdet um dem ganzen auch eine hohe Geschwindigkeit zu geben weil bei mir auch viele daten vorhanden sind.
Hier meine Aufgabe die ich schaffen muss.
Ich habe in einer bestimmten Spalte werte untereinander stehen.
diese habe ich mir gedacht schreibe ich in ein Arry.
Aber nur wenn in einer anderen Spalte(7) eine Zahl steht die größer ist als 0.
Wie mache ich das am geschicktesten ?
Vielen Dank für eure Hilfe.
Hier der Code den ich bis jetzt habe:
Option Explicit
Sub hole_daten()
Dim z As Integer 'Zähler für Schleife
Dim x As Integer 'Zähler für Schleife
Dim inNr() As String 'Array Container für nunmern
Dim ii As Integer 'Zähler für Anzahl Werte in Array
'Schleife um die Spalte zu finden in der die benötigten Werte stehen(ob prüfung i.o oder nicht
For z = 1 To 255
If Datendatei.Worksheets("Messdaten").Cells(19, z).Value = "0 = i.O." Then
GoTo Spalte_gefunden
End If
Next
MsgBox ("Datei nicht OK - Bitte eine andere Datei wählen"), vbCritical, "abbruch"
Exit Sub
Spalte_gefunden:
ii = 0
For x = 21 To Datendatei.Worksheets("Messdaten").Cells(Rows.Count, z).End(xlUp).Row
If Datendatei.Worksheets("Messdaten").Cells(x, z).Value > 0 Then
inNr(ii) = Datendatei.Worksheets("Messdaten").Cells(x, z).Value
ii = ii + 1
Else
End If
Next
'und hier müsste ich z.b die ganzen einzelwerte aus dem Array inNr in eine leere Tabelle ü _
bergeben.
End Sub