Herbers Excel-Forum - das Archiv

Verknüpfte Felder

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Verknüpfte Felder
von: Servoazubi

Geschrieben am: 21.12.2006 09:29:35
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
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
 Bild
Excel-Beispiele zum Thema "Verknüpfte Felder"
Freiraum am linken Rand von MS-FORMS-Textfeldern löschen Felder über VBA sortieren
Textfelder in UserForm beim Start vorbelegen ComboBox-Felder in UserForm aufklappen
Gruppe von Optionsfeldern kopieren und Makro zuweisen Synchronisieren von Optionsfeldern in verschiedenen Blättern
UserForm-Optionsfelder prüfen Selektieren von über ComboBox-Felder ausgewählten Werten
UserForm-Optionsfelder über eine Schleife zurücksetzen Wert aus Optionsfelder in verschiedenen Frames auslesen