Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Array-Problem!!

Forumthread: Array-Problem!!

Array-Problem!!
21.07.2003 15:14:55
Chris
Hallo,
habe gerade eine Frage gestellt, ich denke ich könnte diese anhand eines Array-Befehls hinbekommen!
Habe aber überhaupt keine Ahnung wie das mit dem Array geht!
Mein Problem:
Habe 2 Dateien ("Datei1.xls" ; "Datei2.xls")
In "Datei1" soll jeder Blattname (max. 26 Namen) einem Array gesetzt werden (z.B. Tabelle1 = Array1)
In der "Datei2" habe ich ein Formularfeld mit Checkboxen! Hier soll dann Array1 (welches der CheckBox1 entspricht) angekreuzt werden!
Hat mir jemand vielleicht ein passendes Makro!?
Danke im voraus!
Gruß Chris
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Array-Problem!!
21.07.2003 15:28:49
ChrisL
Hi Chris
So liesst du die Blätter in ein Array ein...
Option Explicit

Sub Array_einlesen()
Dim iBlatt As Byte
ReDim Arr(Sheets.Count - 1)
For iBlatt = 1 To Sheets.Count
Arr(iBlatt - 1) = Sheets(iBlatt).Name
Next iBlatt
Range(Cells(1, 1), Cells(1, Sheets.Count)) = Arr
End Sub

Die CheckBox Geschichte versteh ich nicht ganz.
Gruss
Chris

Anzeige
An ChrisL
21.07.2003 15:34:03
Chris
Hi Chris,
danke für Deine Hilfe!
Was ich mit der CheckBox-Geschichte möchte ist folgendes!
Ich möchte jedem Blatt in "Datei1" ein bestimmtes Array zuordnen!
Dieses bestimmte Array wird dann einer bestimmte CheckBox in "Datei2" zugeordnet!
Jetzt soll eine Abfrage kommen:
Wenn ein bestimmtes Blatt in "Datei1" geöffnet ist, dann soll in "Datei2" die jeweilige CheckBox angeklickt sein!
Ist das so möglich?
Chris

Anzeige
AW: An ChrisL
21.07.2003 15:49:47
ChrisL
Hi Chris
Ich glaub ich versteh jetzt was du meinst, versteh aber nicht wirklich was du damit bezwecken möchtest.
Wenn du in der Mappe 2 ein Workbook_Activate Ereignis machst, kannst du z.B. mit folgendem Code die aktive Blattnummer aus Mappe 1 ermitteln.

Private Sub Workbook_Activate()
MsgBox Workbooks("Mappe1.xls").ActiveSheet.Index
End Sub

Verstehe nicht wozu dass du das Array brauchst.
Gruss
Chris

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige