Thema Datum  Von Nutzer Rating
Antwort
15.08.2017 14:31:58 Katja
NotSolved
15.08.2017 17:53:17 Gast70117
NotSolved
15.08.2017 19:08:46 Gast70117
Solved
16.08.2017 09:04:13 Katja
NotSolved
Rot Command Button umbennen
 16.08.2017 10:56:02 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
16.08.2017 10:56:02		 Views:
588		 Rating:
     
Antwort:
  Ja
Thema:
Command Button umbennen

Moin,
weil nicht Alle haben  VBA Code als Muttersprache und lesen Code wie Twitter-Nachricht.
z.B. Option Explicit Statement und Variablendeklaration, denn
dann merkst auch du, dass ohne Angabe von "blatt4 =" auch nichts läuft
und warum ein Objekt erzeugen und es erst danach verschieben?
Egal, ich habe aus der fehlerhaften Verwendung deiner .ADD Parameter auch was gelernt
LG

Option Explicit

Sub DoIt()
'einmal getestet mit ordentlicher Variablendeklaration

Dim blatt1 As String
Dim blatt2 As String
Dim blatt3 As String
Dim blatt4 As String

Dim anz As Integer, n As Integer
Dim a As Long, lr2 As Long
Dim Button As OLEObject
Dim bezButton As String

blatt1 = "Tabelle1"
blatt2 = "Tabelle2"
blatt3 = "Tabelle3"
blatt4 = "Tabelle4"

'z.B.
anz = 3
a = 10
lr2 = 10

'ggf löschen
For n = Worksheets(blatt1).OLEObjects.Count To 2 Step -1
   Worksheets(blatt1).OLEObjects(n).Delete
Next n

For n = 1 To anz
    Set Button = Worksheets(blatt1).OLEObjects.Add(ClassType:="Forms.CommandButton.1")
    bezButton = Worksheets(blatt2).Cells(lr2 - n, 1)
    With Button
      .Left = Worksheets(blatt4).Cells(12, 2 + a).Left
      .Top = Worksheets(blatt4).Cells(12, 2 + a).Top
      .Object.Caption = bezButton
    End With
    a = a + 2
Next n

End Sub

Nobody is perfect!
(und wer meiner Fehler entdeckt, hat auch nachgedacht)

Ihre Antwort
  • 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: Name: Email:



  • 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
15.08.2017 14:31:58 Katja
NotSolved
15.08.2017 17:53:17 Gast70117
NotSolved
15.08.2017 19:08:46 Gast70117
Solved
16.08.2017 09:04:13 Katja
NotSolved
Rot Command Button umbennen
 16.08.2017 10:56:02 Gast70117
NotSolved