Office: Array über Schleife füllen.

phobos · 23. Februar 2015

Hi,

bestimmte Spalten werden nacheinander durchsucht.
Sie Spalten sind in einem Array beschrieben.
Code:

Spalten1 = Array(23, 24, 40, 41, 42)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Spalten die einem Kriterium entsprechen, sollen in einem zweiten Array (Spalten2) gespeichert werden und am ende in einer msgbox angezeigt werden.

Das zweite Array kann dann also 0 bis max 5 Argumente enthalten.

So sieht mein Versuch aus, der leider gar nicht funktioniert.*rolleyes.gif*
Code:

....
Spalten1 = Array(23, 24, 40, 41, 42)
For j = 0 To 4
i = Worksheets("Daten").Cells(Rows.Count, Spalten1(j)).End(xlUp).Row
Datum = Worksheets("Daten").Cells(i, 1)
If Datum < Date Then
Spalten2(j) = Mid(Worksheets("Daten").Cells(1, Spalten1(j)).Address (False, False), 1, 1)
ELSE
END IF
next J
....
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wo liegt mein Fehler?

:)

chris-kaiser · 25. Februar 2015

Hallo,

ergibt für mich keinen Sinn
Spalte 42 ist ja Spalte AP
mit Mid(...., 1,1) bekommst du den ersten Buchstaben, wäre somit A
für 40,41,42 jedes Mal ein A ?

Was willst du eigentlich damit erreichen, was ist das Ziel davon?

der leider gar nicht funktioniert
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist auch nicht gerade sehr aussagekräftig *Smilie

bei mir geht es...
Code:

Sub til()
Dim Spalten2(4)
Spalten1 = Array(23, 24, 40, 41, 42)
For J = 0 To 4
i = Worksheets("Daten").Cells(Rows.Count, Spalten1(J)).End(xlUp).Row
Datum = Worksheets("Daten").Cells(i, 1)
If Datum < Date Then
Spalten2(J) = Mid(Worksheets("Daten").Cells(1, Spalten1(J)).Address(False, False), 1, 1)
Else
End If
Next J
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

phobos · 12. Januar 2021

von chris-kaiser

Hallo,

ergibt für mich keinen Sinn
Spalte 42 ist ja Spalte AP
mit Mid(...., 1,1) bekommst du den ersten Buchstaben, wäre somit A
für 40,41,42 jedes Mal ein A ?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oh ja. Stimmt. Hatte das nur bis x probiert*wink.gif*

Was willst du eigentlich damit erreichen, was ist das Ziel davon?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es soll in diesen Spalten geprüft werden ob die EInträge Tagesaktuell sind.
WEnn Einträge bei einem odere mehrern Spalten nicht aktuell sind soll dem Anwender per msgbox angezeigt werden in welchen Spalten dies der Fall ist.

bei mir geht es...
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sub til()
Dim Spalten2(4)
Spalten1 = Array(23, 24, 40, 41, 42)
For J = 0 To 4
i = Worksheets("Daten").Cells(Rows.Count, Spalten1(J)).End(xlUp).Row
Datum = Worksheets("Daten").Cells(i, 1)
If Datum < Date Then
Spalten2(J) = Mid(Worksheets("Daten").Cells(1, Spalten1(J)).Address(False, False), 1, 1)
Else
End If
Next J
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

[/quote]
Bei mir hatte ich die (4) in der Deklaration vergessen.

Zumindest kommt jetzt keine Fehlermeldung mehr.
Allerdings ist Spalten2(J) kein Array mit ALLEN betroffenen Spalten, sondern immer nur die aktuelle betroffene Spalte.

Ist z.B. Spalte W und Spalte X nicht aktuell und die anderen 3 sind es, so soll dem Anwender eine msgbox mit den Spaltennamen W und X angezeigt werden.

Weist jetzt wie ich mein?

chris-kaiser · 25. Februar 2015

Hi,

ok, hier mal ein Versuch
Code:

Sub til()
Dim Spalten2(4), new_index As Integer, str_temp As String
Dim Spalten1, j As Long, i As Long, datum As Date
Spalten1 = Array(23, 24, 40, 41, 42)
For j = 0 To 4
i = Worksheets("Daten").Cells(Rows.Count, Spalten1(j)).End(xlUp).Row
datum = Worksheets("Daten").Cells(i, 1)
If datum < Date Then
Spalten2(new_index) = Columns(Spalten1(j)).Address(0, 0)
new_index = new_index + 1
Else
End If
Next j
For j = 0 To new_index - 1
str_temp = str_temp & "Spalte: " & Left(Spalten2(j), InStr(1, Spalten2(j), ":") - 1) & " hat kein aktuelles Datum" & Chr(10)
Next
MsgBox Left(str_temp, Len(str_temp) - 1)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

phobos · 25. Februar 2015

DAnke Chris!
funktioniert soweit super*Smilie .

Kannst Du mir meine Kommentare kommentieren. Ob ichs richtig verstanden habe.*wink.gif*

Zitat von chris-kaiser;1652279:

Hi,

Code:

Sub til()
Dim Spalten2(4), new_index As Integer, str_temp As String
Dim Spalten1, j As Long, i As Long, datum As Date
Spalten1 = Array(23, 24, 40, 41, 42)
For j = 0 To 4
i = Worksheets("Daten").Cells(Rows.Count, Spalten1(j)).End(xlUp).Row
datum = Worksheets("Daten").Cells(i, 1)
If datum < Date Then
Spalten2(new_index) = Columns(Spalten1(j)).Address(0, 0)
new_index = new_index + 1
Else
End If
Next j
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

in dem Teil wird das array Spalten2 gefüllt mit den Ziffern aus Spalten1.
Also wenn W und X nicht aktuell sind, wird das Array Spalten2 mit 23 und 24 gefüllt.
new_index ist die Anzahl der betroffenen Spalten. In dem Fall "2".

Code:

For j = 0 To new_index - 1
str_temp = str_temp & "Spalte: " & Left(Spalten2(j), InStr(1, Spalten2(j), ":") - 1) & " hat kein aktuelles Datum" & Chr(10)
Next
MsgBox Left(str_temp, Len(str_temp) - 1)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hier wird der entsprechende Spaltenbuchstabe ermittelt.

und was bewirkt?
Code:

MsgBox Left(str_temp, Len(str_temp) - 1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser · 25. Februar 2015

Hi,

ich habe die Kommentare mal im Code hinterlegt

Code:

Option Explicit
Sub til()
Dim Spalten2(4), new_index As Integer, str_temp As String
Dim Spalten1, j As Long, i As Long, datum As Date
Spalten1 = Array(23, 24, 40, 41, 42)
For j = 0 To 4
i = Worksheets("Daten").Cells(Rows.Count, Spalten1(j)).End(xlUp).Row
datum = Worksheets("Daten").Cells(i, 1)
If datum < Date Then
Spalten2(new_index) = Columns(Spalten1(j)).Address(0, 0) 'schreibe die Adresse der jeweiligen Spalte hinein (z.B AP:AP)
new_index = new_index + 1 'erhöhe den Index vom Array für die nächste mögliche gefundene Schleife
End If
Next j
For j = 0 To new_index - 1 'durchlaufe die gefundenen Spalten -1 deshalb da ja beim letzten Durchlauf noch +1 gerechnet worden ist
'Left(Spalten2(j), InStr(1, Spalten2(j), ":") - 1) ' nimm von der Adresse der Spalte (AP:AP) nur die ersten Buchstaben bis zum Doppelpunkt
str_temp = str_temp & "Spalte: " & Left(Spalten2(j), InStr(1, Spalten2(j), ":") - 1) & " hat kein aktuelles Datum" & Chr(10)
Next
'gebe den Text aus ohne den letzten Zeilenumbruch
MsgBox Left(str_temp, Len(str_temp) - 1)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

phobos · 25. Februar 2015

Super*top

hab noch den Code angepasst für den Fall das alle Spalten aktuell sind.
Da kam noch ne Fehlermeldung.

Vielen Dank Chris!

Office: Array über Schleife füllen.

Array über Schleife füllen.

Array über Schleife füllen.

Array über Schleife füllen.

Array über Schleife füllen. - Similar Threads - Array Schleife füllen

Mittelwert aus mehreren Spalten als dynamisches Array

Adressen in eine Zelle bei Übereinstimmung eindeutiger Werte einer anderen Spalte

Zahlendubletten im Array

Array aus Excel Tabelle einlesen Word VBA

For Schleife mit Array

Schleife für Array Problem mit Textbox-Bezeichnung

VBA suchen in zweidimensionalem Array ohne Schleife