locked
Datumsabfrage Korrekt Zeilehinzufuegen RRS feed

  • Allgemeine Diskussion

  • Hallo,

    Kann mir wer erklären, wie der Mist funktioniert?

    For to Next und so? ich möchte ein Formular erstellen und es soll automatisch in die nächste Zeile springen und sich selber leeren und so. 

    Vielen Dank!

    Montag, 27. Januar 2020 14:48

Alle Antworten

  • Dim Zeile As Long

    Zeile = 5

    If Not IsDate (Me.txtGeburtsdatum) Then

    MsgBox ("korrektes Datum!")

    Me.txtGeburtsdatum.SetFocus

    Exit Sub

    End If

    While Cells (Zeile, 1).Value <> ""

    Zeile = Zeile + 1

    Wend

    Cells(Zeile, 1).Select

    ActiveCell.FormulaR1C1=Trim(Me.txtXY)

    ActiveCell.Offset (0, 1).Range("A1").Select

    [beliebig kopieren]

    Unload Me


    Montag, 27. Januar 2020 14:49
  • Aha. "Und so".

    Nein, es kann dir keiner sagen, wie dein Mist funktionieren soll.

    Denn niemand hier weiß, was für ein "Mist" das überhaupt sein soll.

    a) Drück dich bitte ordentlich und gewählt aus.

    b) Beschreib bitte so, dass ein Außenstehender genau versteht, was Du wllst/meinst. Dazu dann bitte auch die Angabe der Projektart, der gewünschten Controls, usw.

    c) Erstell jeweils einen neuen Thread für Fragen, die nicht wirklich was miteinander zu tun haben.


    Gruß, Stefan
    Microsoft MVP - Visual Developer ASP/ASP.NET (2001-2018)
    https://www.asp-solutions.de/ - IT Beratung, Softwareentwicklung, Remotesupport

    Montag, 27. Januar 2020 14:51
    Moderator
  • Moin Stefan!

    a) Mir kann offensichtlich jemand mit meinem Mist helfen (Danke dafür!)

    b) es schafft hier richtig unmut, dass so so einen Rant-Ton anschlägst! Lass das doch bitte!

    @panic: magst du mir auch nochmal die For to Next-Schleife erklären? Danke! 

    Montag, 27. Januar 2020 14:56
  • Makro aufzeichnen "COPY"

    Relative Verweise anmachen

    Eine Sache eingeben, STRc und eins drunter STRv

    Dann:

    Sub AnzahlCopys()

    Dim Kopien As Integer

    Kopien = InputBox ("Bitte geben Sie ...")

    Dim t As Integer

    For t = 1 To Kopien

    COPY

    Next t

    End Sub

    Viel Erfolg damit!


    Montag, 27. Januar 2020 14:57
  • Moin Stefan!

    a) Mir kann offensichtlich jemand mit meinem Mist helfen (Danke dafür!)

    b) es schafft hier richtig unmut, dass so so einen Rant-Ton anschlägst! Lass das doch bitte!

    @panic: magst du mir auch nochmal die For to Next-Schleife erklären? Danke! 

    Liefer "Dafaque". Ich nehme an, "dontpanic1234" und Du selbst bist dieselbe Person. Aber das ist natürlich nur eine Vermutung (auch wenn ich das nicht ohne Grund vermute).

    Ich denke nicht, dass es Unmit schafft, wenn ich dich auf die Forenregeln hinweise. Halte dich bitte an diese.

    P.S.: Wenn ich dich "angemobbt" hätte (was auch immer das sein soll), wüsstest Du das.


    Gruß, Stefan
    Microsoft MVP - Visual Developer ASP/ASP.NET (2001-2018)
    https://www.asp-solutions.de/ - IT Beratung, Softwareentwicklung, Remotesupport

    Montag, 27. Januar 2020 15:00
    Moderator