Thema Datum  Von Nutzer Rating
Antwort
29.11.2010 15:36:14 Mirco O.
NotSolved
Blau Aw:Variabler Datumsbereich
 29.11.2010 21:53:25 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
29.11.2010 21:53:25		 Views:
742		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Variabler Datumsbereich
Mirco O. schrieb am 29.11.2010 15:36:14:

Hallo liebes Forum!

Folgendes Anliegen habe ich:

In einer Exceltabelle habe ich zeilenweise Datumswerte (jeden Tag eines Jahres).

In einer Userform habe ich zwei Textboxen, in die man jeweils ein "Von"-Datum sowie ein "Bis"-Datum eintragen soll.

Nun möchte ich, dass VBA diesen "Von-Bis"-Bereich sucht und mir in die nächsten 3 Spalten eine 0 einträgt.

Wenn ich nur nach dem "Von"-Datum suche, ist es für mich kein Problem. Mein Problem ist es, dass "Bis"-Datum mit einzubeziehen Embarassed

Kann mir dabei irgendjemand von euch helfen?


Voraussetzungen:
Datum ist als Date formatiert und nicht als Text.
Bereiche (Range) müssen an Deine Datei angepaßt werden.
UserForm und TextBox - Bezeicnungen können abweichen.

Sub Einfuegen()
Dim datSTART As Long
Dim datEND As Long
Dim rwSTART As Long
Dim rwEND As Long
Dim LaufZahl As Long
Dim Zelle As Excel.Range
UserForm1.Show
With UserForm1
datSTART = CLng(CDate(.TextBox1.Text))
datEND = CLng(CDate(.TextBox2.Text))
End With
Unload UserForm1
On Error Resume Next
With ActiveSheet
rwSTART = Application.WorksheetFunction.Match(datSTART, .Range("$A$2:$A$366"), 0)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Kein Anfangsdatum gefunden!", vbCritical, "Fehler..."
Exit Sub
End If
rwEND = Application.WorksheetFunction.Match(datEND, .Range("$A$2:$A$366"), 0)
If Err.Number <> 0 Then
Err.Clear
MsgBox "Kein Enddatum gefunden!", vbCritical, "Fehler..."
Exit Sub
End If
For Each Zelle In .Range(.Cells(rwSTART, 1), .Cells(rwEND, 1))
For LaufZahl = 1 To 3
Zelle.Offset(0, LaufZahl) = 0
Next LaufZahl
Next
End With
End Sub

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
29.11.2010 15:36:14 Mirco O.
NotSolved
Blau Aw:Variabler Datumsbereich
 29.11.2010 21:53:25 Severus
NotSolved