Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA: 400 Fehler bei Cells.Value ?
 13.01.2015 13:47:28 Klemens
NotSolved
13.01.2015 16:23:07 Gast94181
NotSolved

Ansicht des Beitrags:
Von:
Klemens		 Datum:
13.01.2015 13:47:28		 Views:
949		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA: 400 Fehler bei Cells.Value ?

Hallo

Ich versuche gerade Buttons zu generieren, welche den Zellen-Inhalt unter ihnen an eine Funktion weitergeben. Nun erhalte ich einen Fehler (400) in Zeile 19:

Function Add_Buttons(myColumn)

    Dim btn As Button
    ActiveSheet.Buttons.Delete
    Dim t As Range
    
    'Suche nach der letzten Zeile
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    'Force-Update
    Application.Calculate
    
    'Fuer jede Zeile einen Button generieren wenn Text in der Zelle ist
    For i = 3 To lastRow
        Set t = Range(Cells(i, myColumn), Cells(i, myColumn))
        If Cells(i, t.column - 1).Text = "Nicht OK" Then
            Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.RowHeight)
            With btn
              .OnAction = "'DieseArbeitsmappe.Update_DB """ & ActiveSheet.Cells(i, myColumn).Value & """'"
              .Caption = "Update"
              .Name = "Btn_" & ActiveSheet.Name & "_" & i
            End With
        End If
    Next i
    
End Function

Ich hoffe mir kann geholfen werden. Danke im Voraus.

 

Grüsse

Klemens

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
Rot Excel VBA: 400 Fehler bei Cells.Value ?
 13.01.2015 13:47:28 Klemens
NotSolved
13.01.2015 16:23:07 Gast94181
NotSolved