Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.07.2008 18:35:42 |
Florian |
|
|
|
23.07.2008 17:19:23 |
jh |
|
|
|
23.07.2008 18:07:56 |
Florian |
|
|
|
23.07.2008 18:37:12 |
jh |
|
|
|
23.07.2008 20:40:48 |
Florian |
|
|
|
24.07.2008 08:04:31 |
jh |
|
|
|
24.07.2008 12:39:52 |
Florian |
|
|
Aw:Aw:Aw:Aw:Aw:Aw:Aw:Schleife richtig unterbrechen |
24.07.2008 14:14:47 |
jh |
|
|
|
24.07.2008 19:41:05 |
Florian |
|
|
Von:
jh |
Datum:
24.07.2008 14:14:47 |
Views:
949 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:Aw:Schleife richtig unterbrechen |
Hallo,
ergibt sich nur noch die Frage, ob die Speicherung erst ab Zeile 17
beginnt und ob vor der Eintragung des ersten Datensatzes in Zeile 1-16
schon etwas drinsteht. Aber dazu stehen im Code Kommentare.
Dim Zeile As Long
With Worksheets(1)
' nächste freie Zeile ermitteln
Zeile = .Cells(65536, 1). End(xlUp).Row + 1
' wenn es erst ab Zeile 17 losgehen soll:
If Zeile < 17 Then
Zeile = 17 ' das wird der erste Datensatz
.Cells(Zeile, 1) = 1
Else ' es gibt schon andere Datensätze
.Cells(Zeile, 1) = .Cells(Zeile - 1, 1) + 1
End If
' den If-Block musst du evtl. anpassen,
' je nachdem wo die Daten beginnen sollen
' nun kannst du deinen Datensatz eintragen
.Cells(Zeile, 1) = UserForm1.TextBox1.Value 'Name
' oder wie immer deine Form usw. heißen
' usw. ...
End With
Gruß
|
- 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
|
|
22.07.2008 18:35:42 |
Florian |
|
|
|
23.07.2008 17:19:23 |
jh |
|
|
|
23.07.2008 18:07:56 |
Florian |
|
|
|
23.07.2008 18:37:12 |
jh |
|
|
|
23.07.2008 20:40:48 |
Florian |
|
|
|
24.07.2008 08:04:31 |
jh |
|
|
|
24.07.2008 12:39:52 |
Florian |
|
|
Aw:Aw:Aw:Aw:Aw:Aw:Aw:Schleife richtig unterbrechen |
24.07.2008 14:14:47 |
jh |
|
|
|
24.07.2008 19:41:05 |
Florian |
|
|