|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.07.2016 11:00:18 |
Phillip |
|
|
|
11.07.2016 13:59:56 |
Gast31508 |
|
|
 Anzahl CHeckboxen auslesen und verarbeiten |
11.07.2016 14:43:30 |
Gast12124 |
|
|
|
11.07.2016 14:58:42 |
Phillip |
|
|
|
11.07.2016 16:18:50 |
Gast61854 |
|
|
|
12.07.2016 07:37:35 |
Phillip |
|
|
Von:
Gast12124 |
Datum:
11.07.2016 14:43:30 |
Views:
745 |
Rating:
|
Antwort:
|
Thema:
Anzahl CHeckboxen auslesen und verarbeiten |
|
Hi,
erst einmal vielen Dank für deine Antwort. Es handelt sich um ActiveX Checkboxen und die Checkboxen haben die selbe Zeile wie die Platzierung des Zahlenwertes (Checkbox "G4", Zahl" F4"). Ich bin auch schon ganz schön vorangekommen, die Schleife zählt und gibt auch (wie im Beispiel) Werte richtig aus. Mein einziges Problem ist es die Nummernausgabe an die richtige Stelle zu bekommen, derzeit stehen sie alle untereinander. Manchmal ist aber auch mehr als eine Zeile Platz dazwischen. Ich wollte mir daher eigentlich eine List in VBA machen, z.B. List=(F4,F6,F9,F11,...) und dann den Wert auslesen lassen. Ich weiß nur nicht wie ich diese erstelle und auslese. Hier mein Code:
Sub Zählen()
Dim i As Integer
Dim j As Integer
Dim strCheckbox As String
Dim strZeile As String
Dim intAnzahl As Integer
Dim objOLE As OLEObject
Dim strName As String
For Each objOLE In Worksheets("Tabelle1").OLEObjects
If Left(objOLE.Name, 8) = "CheckBox" Then
intAnzahl = intAnzahl + 1
End If
Next
MsgBox intAnzahl
i = 1
j = 1
Do
strZeile = "F" & 3 + i
strCheckbox = "Checkbox" & i
MsgBox strCheckbox
If Tabelle1.OLEObjects(strCheckbox).Object.Value = True Then
ActiveSheet.Range(strZeile).Value = j
j = j + 1
Else
ActiveSheet.Range(strZeile).Value = ""
End If
i = i + 1
Loop Until intAnzahl + 1 = i
End Sub
Nur zur Info, die MsgBoxen sind nur noch als Hilfe drin, die also wegdenken.
Vielen Dank nochmal!
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.07.2016 11:00:18 |
Phillip |
|
|
|
11.07.2016 13:59:56 |
Gast31508 |
|
|
Anzahl CHeckboxen auslesen und verarbeiten |
11.07.2016 14:43:30 |
Gast12124 |
|
|
|
11.07.2016 14:58:42 |
Phillip |
|
|
|
11.07.2016 16:18:50 |
Gast61854 |
|
|
|
12.07.2016 07:37:35 |
Phillip |
|
|