Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > [VBA] 2 Arrays miteinander verknüpfen
Normale Version: [VBA] 2 Arrays miteinander verknüpfen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3

jules

08.12.2019, 10:32
Hmm.

Lasse ich UCase weg, klappt es aber Smile

Steffl

08.12.2019, 10:38
Hallo,

da habe ich was übersehen

Code:
Case "INHALTSVERZEICHNIS", "DATA"

jules

08.12.2019, 10:39
Merci 
Brauche ich denn dann das UCase? Eigentlich egal wie rum, oder?

--
Hast du noch eine Idee zum Array-Problem?

Steffl

08.12.2019, 10:48
Hallo,

(08.12.2019, 10:39)jules schrieb: [ -> ]Merci 
Brauche ich denn dann das UCase? Eigentlich egal wie rum, oder?
Hast du noch eine Idee zum Array-Problem?

Das kommt darauf an, wie Du den Tabellennamen im Case-Zweig und in Excel selber geschrieben hast.

Zum Array: Ein bissl wenig was Du an Code gepostet hast.

jules

08.12.2019, 10:51
Ok. Danke Dir!

Zum Array:

Code:
Dim arr As Variant
Dim arrL As Variant
Dim wks As Worksheet
Pfad = Range("DataPfad")
 
   arr = Worksheets("Data").Range("G8:G13")
   arrL = Worksheets("Data").Range("H8:H13")
   'arrL = Array("Verbrauchsstatistik L1 2020.xlsb","Verbrauchsstatistik L2 2020.xlsb", "Verbrauchsstatistik L3 2020.xlsb")
   
For Each wks In Worksheets
 If wks.Visible = xlSheetVisible Then
   Select Case wks.Name

Case "Data", "Inhaltsverzeichnis"

Case Else
          With wks
          Blatt = .Range("B1")

  Set Bereich = .Range("C2:N2")
  For Each Zelle In Bereich
  Zellen = Range(Cells(4, Zelle.Column), Cells(21, Zelle.Column)).Address

   If IsNumeric(WorksheetFunction.Match(Zelle.Value, arr, 0)) Then
          Dateiname = arrL(WorksheetFunction.Match(Zelle.Value, arr, 0) - 1)
          MsgBox Dateiname

Wie gesagt. Liste ich die Werte im Makro auf (aktuell deaktiviert) funktioniert es. Soll er sie sich aus der Zelle holen, geht es nur bei arrL nicht...  :16:

Steffl

08.12.2019, 10:54
Hallo,

arrL ist zweidimensional

Code:
Dateiname = arrL(WorksheetFunction.Match(Zelle.Value, arr, 0) - 1, 1)

schau mal, wenn Du das im Einzelschrittmodus ablaufen läßt, ins Lokal- bzw. Überwachungsfenster, dann siehst Du es.

jules

08.12.2019, 11:11
interessant! tatsache Smile

arrL(1) 
 -> arrL(1,1)

.. allerdings springt er mit 
Dateiname = arrL(WorksheetFunction.Match(Zelle.Value, arr, 0) - 1, 1)

immer noch nicht an...  Huh

Steffl

08.12.2019, 11:17
Hallo,

(08.12.2019, 11:11)jules schrieb: [ -> ].. allerdings springt er mit 
Dateiname = arrL(WorksheetFunction.Match(Zelle.Value, arr, 0) - 1, 1)

immer noch nicht an...  Huh

auch dein arr ist zweidiemensional. Teste halt ob deine If-Abfrage erfüllt ist.

jules

08.12.2019, 11:22
Stark!

Ich habs Smile

Dateiname = arrL(WorksheetFunction.Match(Zelle.Value, arr, 0), 1)

Tausend Dank!

Kuwer

08.12.2019, 11:30
(08.12.2019, 10:39)jules schrieb: [ -> ]Brauche ich denn dann das UCase? Eigentlich egal wie rum, oder?

na Du hattest doch gejammert:

Zitat:.. Anscheinend muss ich bei "Case"   E X A K T  den Tabellennamen angeben. Also auch Groß-/Klein Schreibung etc.

Funktioniert nun ... *nerv
 Undecided

UCase macht halt alles Groß.
Seiten: 1 2 3
Clever-Excel-Forum > Office-Anwendungen > Excel > [VBA] 2 Arrays miteinander verknüpfen