Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
340to344
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
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zwei For+If Schleifen

zwei For+If Schleifen
25.11.2003 11:59:30
Steffen D.
Hallo,
Ich bin dank eurer Hilfe schon viel weiter gekommen.
Nun habe ich noch eine klitze Kleinigkeit :)

Code:
*******************************************************
Option Explicit
Public myCollection As New Collection
Public

Sub Allesdrucken_Click()
Dim myOLEObject As OLEObject
For Each myOLEObject In Worksheets("Tabelle1").OLEObjects
If myOLEObject.ProgId = "Forms.CheckBox.1" Then myCollection.Add myOLEObject
Next
Hacken
End Sub


Public

Sub Hacken()
Dim intIndex
For intIndex = 1 To myCollection.Count
If Allesdrucken = False Then '[ ] Alles Drucken
myCollection.Item(intIndex).Object.Value = False
End If
If Allesdrucken = True Then '[x] Alles Drucken
myCollection.Item(intIndex).Object.Value = True
End If
Next intIndex
End Sub

******************************************

Ich möchte nun noch folgenden Code mit in die If-Schleife einsetzen:

Dim iRow As Integer
If Sheets("Tabelle1").Cells(iRow, 18).Text = "1" Then
End If
Next iRow

Danke für eure Hilfe
ich hoffe Ihr könnt damit etwas anfangen
Mfg Steffen D.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zwei For+If Schleifen
25.11.2003 20:43:40
Nepumuk
Hallo Steffen,
bei genauerer Betrachtung bleibt von deinem "Hacken" - Code so viel übrig. Wo soll nun die zweite Schleife hin?

Public

Sub Hacken()
Dim intIndex
For intIndex = 1 To myCollection.Count
myCollection.Item(intIndex).Object.Value = Allesdrucken
Next intIndex
End Sub


Gruß
Nepumuk
AW: zwei For+If Schleifen
27.11.2003 09:46:10
Steffen D.
Danke Nepumuk für deine Hilfe

Mit der zweiten Schleife möchte ich folgendes erreichen:

Jede Comboxbox steht in einer Spalte wenn die Spalte einen
Wert enthält und die Combobox Allesdrucken gedrückt worden ist,
soll die Combobox auch auf True gesetzt werden.
{
Allesdrucken = True &
If Sheets("Tabelle1").Cells(iRow, 18).Text = "1"
}

Code:
_________________________________________________________
Option Explicit
Public myCollection As New Collection
Public

Sub Allesdrucken_Click()
Dim myOLEObject As OLEObject
For Each myOLEObject In Worksheets("Tabelle1").OLEObjects
If myOLEObject.ProgId = "Forms.CheckBox.1" Then myCollection.Add myOLEObject
Next
Hacken
End Sub

Public

Sub Hacken()
Dim intIndex
For intIndex = 1 To myCollection.Count
myCollection.Item(intIndex).Object.Value = Allesdrucken
Next intIndex
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige