Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.05.2016 16:56:20 |
Hewad |
|
|
|
10.05.2016 16:59:11 |
Hewad |
|
|
CommandButton Captions aus der Liste übernehmen |
10.05.2016 22:33:11 |
Gast54344 |
|
|
|
10.05.2016 23:43:27 |
Gast34412 |
|
|
Von:
Gast54344 |
Datum:
10.05.2016 22:33:11 |
Views:
694 |
Rating:
|
Antwort:
|
Thema:
CommandButton Captions aus der Liste übernehmen |
Hallo Hewad! Probiere es mal so. Ich habe eigentlich nur deine Zuweisung von i = 8 vor die Schleife mit p genommen. Ansonsten startetst du bei jedem Objekt wieder mit der Zuweiseung und somit beim ersten Eintrag in der Zeile. Damit sollte jetzt das i über die Objekte weitergezählt werden und dann auch ein anderer Name herauskommen. Sollte eigentlich klappen. VG
Sub Button_Name()
On Error Resume Next
Dim combut As CommandButton
Dim combut_number As Integer
Dim oleObj_number As Integer
Dim i As Integer
Dim p As Integer
Dim Supname As String
Dim bcontinue As Boolean
combut_number = ActiveSheet.Buttons.Count
Debug.Print varA; combut_number
oleObj_number = ActiveSheet.OLEObjects.Count
Debug.Print varA; oleObj_number
For i = 1 To oleObj_number ' Hier alle Captions gelöscht
combut_Name = ActiveSheet.OLEObjects("CommandButton" & i).Object.Caption
ActiveSheet.OLEObjects("CommandButton" & i).Object.Caption = ""
Next i
'erster Treffer auf der Liste in der Zeile 8
i = 8
For p = 1 To oleObj_number
bcontinue = True
While bcontinue
Supname = ActiveSheet.Cells(i, 2).Value '
If Supname = "" Then
bcontinue = False
Else
For Each v In Array(" / ")
Supname = Replace(Supname, v, " ")
Next
Debug.Print varA; Supname
combut_Name = ActiveSheet.OLEObjects("CommandButton" & p).Object.Caption
Debug.Print varA; combut_Name
If combut_Name = "Get images" Then
Exit Sub
End If
ActiveSheet.OLEObjects("CommandButton" & p).Object.Caption = Supname
i = i + 1
End If
Wend
' hier komme ich leider nicht weiter. ich habe auch versucht next p davor und dahinter zu _
packen, jedoch leider ohne Erfolg!
Next p
End Sub
|
- 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
|
|
10.05.2016 16:56:20 |
Hewad |
|
|
|
10.05.2016 16:59:11 |
Hewad |
|
|
CommandButton Captions aus der Liste übernehmen |
10.05.2016 22:33:11 |
Gast54344 |
|
|
|
10.05.2016 23:43:27 |
Gast34412 |
|
|