Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
240to244
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
240to244
240to244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Check Boxen / Tabellenblatt-Namen

Check Boxen / Tabellenblatt-Namen
08.04.2003 09:57:28
Fridl
Hi @ all,
habe ein kleines Problem (eigentlich zwei) mit meinem Excel Tool.

1. Wie kann ich in meiner Userform abfragen (am besten mit einer for next schleife) ob eine CheckBox ausgewählt ist oder nicht, und je nach dem die nächste freie Zelle in eine bestimmten Zeile mit dem Namen der CheckBox füllen. Die CheckBoxen Heissen alle gleich nur die letzte Ziffer ist anders z.B. chk_mitarbeiter1, chk_mitarbeiter2 usw. In VBA ist es ja leider nicht möglich Indexe zu vergeben oder doch ?

2. Wie kann ich abfragen ob eine Tabellenblatt-Name schon einmal vorhanden ist, und dem entsprechend eine MsgBox anzeigen die angibt wenn er schon einmal vorhanden ist und so den Fehler abfängt?

Wäre euch sehr dankbar wenn ihr mir weiterhelfen könnt...

Grüße :-)

Fridl

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

Betreff
Datum
Anwender
Anzeige
Re: Check Boxen / Tabellenblatt-Namen
08.04.2003 13:00:04
ChrisL

Hallo Fridl

1.

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Byte, Spalte As Byte

Spalte = 0

For i = 1 To 3
If Controls("chk_mitarbeiter" & i).Value = True Then
Spalte = Spalte + 1
Cells(1, Spalte) = "chk_mitarbeiter" & i
End If
Next i
End Sub

2.

Option Explicit

Private Sub CommandButton2_Click()
Dim i As Byte
Dim AbfrageBlatt As String

AbfrageBlatt = "Sheet3"

For i = 1 To Sheets.Count
If Sheets(i).Name = AbfrageBlatt Then
MsgBox "Blatt " & AbfrageBlatt & " bereits vorhanden."
Exit Sub
End If
Next i

MsgBox "Blatt " & AbfrageBlatt & " ist nicht vorhanden."
End Sub

Gruss
Chris

Anzeige
Re: Check Boxen / Tabellenblatt-Namen
08.04.2003 13:00:05
ChrisL

Hallo Fridl

1.

Option Explicit

Private Sub CommandButton1_Click()
Dim i As Byte, Spalte As Byte

Spalte = 0

For i = 1 To 3
If Controls("chk_mitarbeiter" & i).Value = True Then
Spalte = Spalte + 1
Cells(1, Spalte) = "chk_mitarbeiter" & i
End If
Next i
End Sub

2.

Option Explicit

Private Sub CommandButton2_Click()
Dim i As Byte
Dim AbfrageBlatt As String

AbfrageBlatt = "Sheet3"

For i = 1 To Sheets.Count
If Sheets(i).Name = AbfrageBlatt Then
MsgBox "Blatt " & AbfrageBlatt & " bereits vorhanden."
Exit Sub
End If
Next i

MsgBox "Blatt " & AbfrageBlatt & " ist nicht vorhanden."
End Sub

Gruss
Chris

Anzeige
Re: Check Boxen / Tabellenblatt-Namen
08.04.2003 17:32:30
Fridl

Hi Chris,
vielen Dank für Deine Hilfe,
hat wunderbar funktioniert :-)

Grüße
Fridl

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige