ich habe 2 Probleme:
1. In einem Dialogfeld werden diverse Eingaben in Textfelder gemacht. Am Ende werden bei Click auf den OK-Button alle Felder überprüft, ob Einträge gemacht wurden. Ist ein Textfeld leer, gibt es eine Fehlermeldung. Wie erreiche ich, dass nach dieser Fehlermeldung der Cursor zum entsprechenden (leeren) Feld zurückspringt?
2. Wie kann in, wenn eine Reihe von Daten mit dem Format "mmm\ yy" generiert werden, erzwingen, dass nicht in deutsch "Mrz 03", "Apr 03", "Mai 03" usw. dasteht, sondern englisch "Mar 03", "Apr 03", "May 03" OHNE die Einstellungen am Computer manuell ändern zu müssen? Die Datenreihe generiere ich folgendermaßen:
Dim sDat As Date, eDat As Date, tDat As Date
sDat = CDate(Range("i3").Value)
eDat = CDate(Range("k3").Value)
i = 0
Do Until tDat = eDat
tDat = DateAdd("m", i, sDat)
Cells(7, i + 4).Value = tDat
Cells(7, i + 4).Select
Selection.NumberFormat = "mmm\ yy"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
i = i + 1
Loop
Bin für jegliche Hilfe mega dankbar!
nic