Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
280to284
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
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige