Thema Datum  Von Nutzer Rating
Antwort
12.01.2017 15:23:22 dschuelig
NotSolved
12.01.2017 17:48:02 GraFri
NotSolved
12.01.2017 19:36:28 dschuelig
NotSolved
Blau Tabellenblatt aus Listbox ansprechen
 13.01.2017 13:51:41 dschuelig
NotSolved

Ansicht des Beitrags:
Von:
dschuelig		 Datum:
13.01.2017 13:51:41		 Views:
693		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblatt aus Listbox ansprechen
Hey GraFri,
 
da du mir vorher schon weiterhelfen konntest kannst du mir vielleicht auch jetzt weiterhelfen.
Den von dir geänderten Code möchte ich noch etwas modifizieren:
 
Mit deinem Code schreibe ich einen Wert auf jedes in der Listbox ausgewählte Tabellenblatt.
Und nun will ich dass er bevor er das Tabellenblatt wechselt den wert aus Zelle B23 nimmt durch den wert der TextBox2 teilt und in zelle B24 dann den wert aus zelle B24 durch textbox2 teilt und in Zelle B25 schreibt usw. bis kein wert mehr in der Zelle darunter ist.Allerdings klappt das irgendwie nicht, bzw. einmal hat es geklappt für ein Tabellenblatt und dann nicht mehr. Hier ist mein Code: 
Option Explicit


Private Sub UserForm_Initialize()
Dim i As Single
For i = 1 To Worksheets.Count
     With Me.ListBox1
          .AddItem Worksheets(i).Name
     End With
Next i
End Sub
 
 
Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Long


If TextBox1.Value = "" Or TextBox2.Value = "" Then
    MsgBox ("Sie müssen in eine Uhrzeit und ein Intervall eingeben")
    Exit Sub
End If
 
 
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
       Worksheets(ListBox1.List(i)).Range("B23").Value = TextBox1.Text
            j = 24
            Do Until IsEmpty(Cells(j, 2).Value)
            Cells(j, 2).Value = Cells(j - 1, 2).Value + TextBox2.Value / 24 / 3600
            j = j + 1
            Loop
     End If
Next i

Unload Me

 
End Sub
MFG Dschuelig

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
12.01.2017 15:23:22 dschuelig
NotSolved
12.01.2017 17:48:02 GraFri
NotSolved
12.01.2017 19:36:28 dschuelig
NotSolved
Blau Tabellenblatt aus Listbox ansprechen
 13.01.2017 13:51:41 dschuelig
NotSolved