Herbers Excel-Forum - das Archiv
Verknüpfte Felder
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ UserForm
- Verknüpfte Felder von Servoazubi vom 21.12.2006 09:29:35
- AW: Verknüpfte Felder - von Matthias G am 21.12.2006 09:38:07
- AW: Verknüpfte Felder - von Servoazubi am 21.12.2006 09:44:52
- AW: Verknüpfte Felder - von Matthias G am 21.12.2006 09:50:04
- AW: Verknüpfte Felder - von Servoazubi am 21.12.2006 10:11:42
- AW: Verknüpfte Felder - von Matthias G am 21.12.2006 10:13:35
- AW: Verknüpfte Felder - von Servoazubi am 21.12.2006 16:34:06
- AW: Verknüpfte Felder - von Servoazubi am 21.12.2006 16:34:06
- AW: Verknüpfte Felder - von Matthias G am 21.12.2006 10:13:35
- AW: Verknüpfte Felder - von Servoazubi am 21.12.2006 10:11:42
- AW: Verknüpfte Felder - von Matthias G am 21.12.2006 09:50:04
- AW: Verknüpfte Felder - von Servoazubi am 21.12.2006 09:44:52
 |
Betrifft: Verknüpfte Felder
von: Servoazubi
Hi again
Diesmal handelt es sich um folgendes.
Über die Userform sollen 2 (wie is der Plural von Datum ???) Datum.... in 2 verschiedenen Felder ausgegeben werden.
Es gibt 2 Felder: Änderungsdatum und Erstellungsdatum
Wird der Datensatz neu angelegt, d.h. das Erstellungsdatum müsste ja leer seien, sollen im Änderungsdatum und im Erstellungsdatum das Datum von HEUTE (gibts doch nen Befehl für oder) erhalten.
Wird der Datensatz aber nur geändert, d.h. das Erstellungsdatum ist nicht leer, dann soll das Datum von Heute nur im Änderungsdatumsfeld erscheinen und das Erstellungsdatum nicht verändert werden.
Danke für die Hilfe
 |
Betrifft: AW: Verknüpfte Felder
von: Matthias G
Geschrieben am: 21.12.2006 09:38:07
Hallo Martin,
zeig mal deinen Code, wie hast du das gestern realisiert?
Gruß Matthias
|
Betrifft: AW: Verknüpfte Felder
von: Servoazubi
Geschrieben am: 21.12.2006 09:44:52
https://www.herber.de/bbs/user/39139.xls
Der Code ist zeimlich lang udn vielleicht hätte man auch vieles einfacher machen können, ich hoffe du schlägst nicht die Hände über dem Kopf zusammen ;-) .
Gruß Martin
|
Betrifft: AW: Verknüpfte Felder
von: Matthias G
Geschrieben am: 21.12.2006 09:50:04
Hallo Martin,
Private Sub cmdspeichern_Click()
Const Column = 0
Const colErstellt = 47 'Spaltennummer anpassen!
Const colGeändert = 48 'Spaltennummer anpassen!
Dim Begr As String
Dim rFind As Range
Dim Ber As Range
Set Ber = Sheets(1).Range("B:B")
Begr = txtartnr
Set rFind = Ber.Find(Begr, LookAt:=xlWhole)
If rFind Is Nothing Then _
Set rFind = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
Cells(rFind.Row, colErstellt) = Date 'Erstelldatum eintragen
Else
Cells(rFind.Row, colGeändert) = Date 'Änderungsdatum eintragen
End If
With rFind
den Rest wie gehabt.
Gruß Matthias
|
Betrifft: AW: Verknüpfte Felder
von: Servoazubi
Geschrieben am: 21.12.2006 10:11:42
Hi
Bei dem Else hinter "Erstellungsdatum Eintragen" sagt der Else ohne IF !!!
aber bei Rfind steht doch eins
|
Betrifft: AW: Verknüpfte Felder
von: Matthias G
Geschrieben am: 21.12.2006 10:13:35
Hallo Martin,
ups, lösche den Unterstrich _ nach Then.
Gruß Matthias
|
Betrifft: AW: Verknüpfte Felder
von: Servoazubi
Geschrieben am: 21.12.2006 16:34:06
Möp
hätt ich auc hsleber drauf kommen können, Danke trotzdem
| |