Hallo ihr!
Mein Name ist Jana und ich sitze grade an einem kleinen Programmentwurf, bei dem ich nicht mehr so richtig weiterweiß. Ich habe die Suchfunktion verwendet, aber leider nichts passendes gefunden. Kann mir einer von euch vielleicht einen kleinen Tipp geben oder mir sagen, ob sowas ähnliches schonmal behandelt wurde?
Ich muss dazu auch sagen, dass ich absoluter Neuling auf dem Gebiet bin und vom Skripten nicht viel Ahnung habe. Ich schätze, meine Frage ist so einfach, dass bislang noch keiner auf die Idee gekommen ist, sie zu stellen *rotwerd*
Der Entwurf soll bei jedem Öffnen einer Mappe mit einer Reihe von Kundendaten (Anrede, Name, Telefonnummer, Geburtstag, Geburtsjahr) die aktuelle Tabelle auf die aktuellen Geburtstagskinder durchsuchen. Gibt es Übereinstimmungen zwischen dem aktuellen Datum und dem Geburtstag, soll eine Userform ausgegeben werden, in der Anrede, Name, Telefonnummer und das Alter ("Herr xx wird heute xx Jahre alt") in einer Art Tabelle aufgelistet ist.
Mit viel Mühe und Not habe ich es bis jetzt hinbekommen, die aktuellen Geburtstagskinder als Variablen abzuspeichern und in einer MsgBox auszugeben. Meine Fragen sind jetzt:
1. Wie bekomme ich die gefoderten Daten jedes Kunden in die UserForm und was verwende ich dazu am besten? Eine Listbox? Eine Combobox?
2. Wie kann ich am besten einbinden, dass das Skript das Alter des Gratualten ausrechnet?
Mein bisheriger Entwurf (mit der MsgBox)
Ich bin auch bereit den bisherigen Programmcode zu überarbeiten, wenn das Ding dann endlich funktioniert
Kann mir jemand weiterhelfen?
LG
Jana
* topic verschoben *
Mein Name ist Jana und ich sitze grade an einem kleinen Programmentwurf, bei dem ich nicht mehr so richtig weiterweiß. Ich habe die Suchfunktion verwendet, aber leider nichts passendes gefunden. Kann mir einer von euch vielleicht einen kleinen Tipp geben oder mir sagen, ob sowas ähnliches schonmal behandelt wurde?
Ich muss dazu auch sagen, dass ich absoluter Neuling auf dem Gebiet bin und vom Skripten nicht viel Ahnung habe. Ich schätze, meine Frage ist so einfach, dass bislang noch keiner auf die Idee gekommen ist, sie zu stellen *rotwerd*
Der Entwurf soll bei jedem Öffnen einer Mappe mit einer Reihe von Kundendaten (Anrede, Name, Telefonnummer, Geburtstag, Geburtsjahr) die aktuelle Tabelle auf die aktuellen Geburtstagskinder durchsuchen. Gibt es Übereinstimmungen zwischen dem aktuellen Datum und dem Geburtstag, soll eine Userform ausgegeben werden, in der Anrede, Name, Telefonnummer und das Alter ("Herr xx wird heute xx Jahre alt") in einer Art Tabelle aufgelistet ist.
Mit viel Mühe und Not habe ich es bis jetzt hinbekommen, die aktuellen Geburtstagskinder als Variablen abzuspeichern und in einer MsgBox auszugeben. Meine Fragen sind jetzt:
1. Wie bekomme ich die gefoderten Daten jedes Kunden in die UserForm und was verwende ich dazu am besten? Eine Listbox? Eine Combobox?
2. Wie kann ich am besten einbinden, dass das Skript das Alter des Gratualten ausrechnet?
Mein bisheriger Entwurf (mit der MsgBox)
Visual Basic-Quellcode
- Dim Datum As Date
- Dim Zeile As Long
- Dim Namen As String
- Private Sub Workbook_Open()
- Zeile = 2
- Do Until IsEmpty(Cells(Zeile, 3))
- Datum = Cells(Zeile, 3)
- With Range(Cells(Zeile, 1), Cells(Zeile, 3))
- If CDate(Day(Datum) & "." & Month(Datum) & "." & Year(Date)) = Date Then
- .Interior.ColorIndex = xlNone
- Namen = Namen & Cells(Zeile, 1) & " " & Cells(Zeile, 2) & vbLf
- Else
- End If
- End With
- Zeile = Zeile + 1
- Loop
- If Namen <> "" Then
- MsgBox Namen, vbInformation, "Heute haben Geburtstag:"
- Else
- MsgBox "", vbExclamation, "Heute liegt kein Geburtstag an!"
- End If
- End Sub
Ich bin auch bereit den bisherigen Programmcode zu überarbeiten, wenn das Ding dann endlich funktioniert
Kann mir jemand weiterhelfen?
LG
Jana
* topic verschoben *
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „der_Kurt“ ()