|
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 |
|
|
|
24.07.2008 14:14:47 |
jh |
|
|
 Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Schleife richtig unterbrec |
24.07.2008 19:41:05 |
Florian |
|
|
Von:
Florian |
Datum:
24.07.2008 19:41:05 |
Views:
922 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Schleife richtig unterbrec |
jh schrieb am 24.07.2008 14:14:47:
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ß
Hi
Vielen vielen Dank für deine Hilfe!!!!
Es funktioneirt so wie ich mir es gewunschen habe!!!
Gruß Florian
|
- 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 |
|
|
|
24.07.2008 14:14:47 |
jh |
|
|
Aw:Aw:Aw:Aw:Aw:Aw:Aw:Aw:Schleife richtig unterbrec |
24.07.2008 19:41:05 |
Florian |
|
|