Hilfe für kleines EXCEL Tool

  • VB6

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von aspixx.

    Hilfe für kleines EXCEL Tool

    Hallo zusammen,

    ich bin in Sachen VB absoluter Noob! ?(

    Ich habe ein Excel Datensheet mit einigen Datums-Einträgen in der Spalte A. Per Mausklick auf eine Schaltfläche soll der Wert neben dem aktuellen(!) Datum um +1 heraufgesetzt werden.

    Ich habe aber keine Ahnung wie ich die Zelle finde, die mit dem aktuellen Datum übereinstimmt usw....

    Eine feststehende Zelle zB "A1" mit dem Zähler auszustatten schaffe ich ... aber nicht das... könntet Ihr mir da helfen????

    Achja Excel 2013 ...

    Dankeschön und beste Grüße
    Andy

    Visual Basic-Quellcode

    1. Sub Click()
    2. aktDatum = Date
    4. 'Woorksheet zuweisen
    5. Dim ws As Worksheet
    6. Set ws = ThisWorkbook.Worksheets("Tabelle1")
    8. For Row = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row
    9. If ws.Cells(Row, 1).Value = aktDatum Then
    10. ws.Cells(Row, 2).Value = ws.Cells(Row, 2).Value + 1
    11. End If
    12. Next
    14. End Sub

    Danke Shaebich,

    ich habe in der Zwischenzeit selbst ein wenig gebastelt. Mit freundlicher Unterstützung von Google ;) habe ich irgendwann begriffen, wie der Syntax ist.

    hier mein Code für diese Anwendung:

    Visual Basic-Quellcode

    1. Option Explicit
    3. Public Sub M_plus()
    4. Dim rngFind As Range
    5. Dim strDate As String
    6. Dim Counter As Integer
    8. strDate = DateTime.Date
    10. Set rngFind = Cells.Find(DateValue(strDate), LookIn:=xlFormulas)
    11. If Not rngFind Is Nothing Then
    12. rngFind.Activate
    13. Counter = rngFind.Offset(0, 1)
    14. Counter = Counter + 1
    15. rngFind.Offset(0, 1) = Counter
    16. Else
    17. MsgBox "Das heutige Datum wurde nicht in der Liste gefunden!"
    18. End If
    19. End Sub