|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.01.2017 17:36:34 |
dschuelig |
|
|
|
13.01.2017 17:51:48 |
Crazy Tom |
|
|
 Userform geht in VBA Editor, in Makro nicht |
13.01.2017 18:06:46 |
dschuelig |
|
|
|
13.01.2017 17:53:51 |
Gast1124 |
|
|
|
13.01.2017 18:07:33 |
dschuelig |
|
|
|
13.01.2017 18:20:18 |
Mackie |
|
|
|
13.01.2017 18:43:26 |
dschuelig |
|
|
|
13.01.2017 18:57:52 |
Mackie |
|
|
|
13.01.2017 19:21:32 |
dschuelig |
|
|
|
13.01.2017 21:11:22 |
Mackie |
|
|
|
14.01.2017 12:39:10 |
dschuelig |
|
|
|
14.01.2017 13:28:16 |
amicro2000 |
|
|
|
14.01.2017 15:11:00 |
dschuelig |
|
|
Von:
dschuelig |
Datum:
13.01.2017 18:06:46 |
Views:
616 |
Rating:
|
Antwort:
|
Thema:
Userform geht in VBA Editor, in Makro nicht |
|
Hey Crazy Tom
Der untere Teil, also er schreibt den Intervall noch in die Zelle B24 auf jedem ausgewählten Tabellenblatt, aber dann hört er auf :
'Schleife um die nachfolgenden Uhrzeit um den Intervall zu erhöhen
For i = 0 To ListBox1.ListCount - 1
'Wenn-Dann Bedingung, dass er alle in der Listbox1 ausgewählten Namen auswählt und dann
If ListBox1.Selected(i) Then
'Startwert Zelle 24
j = 24
'Schleife für das ablaufen der Intervalladdition
Do
'in die Tabellenblätter -deren Namen in der Listbox ausgewählt sind- den Intervall zur Startzeit hinzurechnen beginnend bei Zelle 24, dann schau was in Zelle 23 ist und addiere
'den Wert der zweiten Textbox hinzu. /24/3600 ist die Umrechnung zur addition von sekunden
Worksheets(ListBox1.List(i)).Cells(j, 2).Value = Cells(j - 1, 2).Value + TextBox2.Value / 24 / 3600
'Schleifenrhytmus, nach jeder Addition in die nächste Zelle springen
j = j + 1
'Die Schleife endet sobald eine leere Zelle vorhanden ist.
Loop Until IsEmpty(Cells(j, 2).Value)
'Ender der Wenn-Dann Bedingung
End If
'nächstes Tabellenblatt
Next i
'Schliessen der Userform
Unload Me
'Beenden des Makros
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
|
|
13.01.2017 17:36:34 |
dschuelig |
|
|
|
13.01.2017 17:51:48 |
Crazy Tom |
|
|
Userform geht in VBA Editor, in Makro nicht |
13.01.2017 18:06:46 |
dschuelig |
|
|
|
13.01.2017 17:53:51 |
Gast1124 |
|
|
|
13.01.2017 18:07:33 |
dschuelig |
|
|
|
13.01.2017 18:20:18 |
Mackie |
|
|
|
13.01.2017 18:43:26 |
dschuelig |
|
|
|
13.01.2017 18:57:52 |
Mackie |
|
|
|
13.01.2017 19:21:32 |
dschuelig |
|
|
|
13.01.2017 21:11:22 |
Mackie |
|
|
|
14.01.2017 12:39:10 |
dschuelig |
|
|
|
14.01.2017 13:28:16 |
amicro2000 |
|
|
|
14.01.2017 15:11:00 |
dschuelig |
|
|