Microsoft Excel

Excel und VBA: Beitrag aus Herbers Excel-Forumsarchiv

Access String zerlegen



Excel-Version: 9.0 (Office 2000)

Betrifft: Access String zerlegen
von: Andreas
Geschrieben am: 19.07.2002 - 14:01:37

Ich habe folgenes Problem.
ein String mit Inhalt >>01.12.1945<< soll abgeschitten werden.
Ich benötige nur die letzten 4 Stellen also >>1945<<
Ich habe nicht den geringsten Plan wie das geht.

Der Code soll so aufgebaut sein

Dim Speicher as String
Speicher = Me!geb_Datum ' in Speicher steht jetzt 01.12.1945

'Anweisungen die mir fehlen


Me!Ausgabe = Speicher ' in Me!Ausgabe soll jetzt 1945 stehen

Danke Andreas ???


  

Re: Access String zerlegen
von: Martin M.
Geschrieben am: 19.07.2002 - 14:10:38

Hallo Andreas,
versuch es mal mit der Funktion Year(geb_Datum).

Grüße
Martin M.


  

Re: Access String zerlegen
von: axel.meyer
Geschrieben am: 19.07.2002 - 14:12:04

hi andreas,

hoffe du meinst einen in excel importierten string. da ist das folgende sub eine hilfe.

gruß, axel


Sub teilen()
Dim strTest As String
Dim var1 As String
Dim var2 As String
Dim var3 As String
  strTest = "MAN200GRT"
  'strTest =Range("A1")
  var1 = Left(strTest, 3)
  var2 = Mid(strTest, 4, 3)
  var2 = Right(strTest, 3)
End Sub

  

Re: Access String zerlegen
von: Andreas
Geschrieben am: 19.07.2002 - 14:22:19

nein ich meine schon Access 2000
Es muß ein String sein auch bei der Datumseingabe
der Zweck ist folgender.
Ich habe eine Datenbank die abhängig ist vom Geburtsjahr.
Beim Eintrag des Geburtstages gebe ich aber tag und jahr mit an.
Da ich aber nur das jahr benötige und nicht nochmal eingeben möchte soll das eingegebene Geburtsdatum als grundlage dienen mir einen String zu leibern der nur die 4 stellige Jahreszahl zurückliefert

Andreas

Da habe ich jetzt leider keinen Plan mehr wie das geht leider


  

Re: Access String zerlegen
von: nayus
Geschrieben am: 19.07.2002 - 14:23:53

Ausgabe eines Teils einer Zeichenfolge
hier alles ab dem 7ten Zeichen

Me!Ausgabe = Mid(Me!geb_Datum, 7)

Viel Spaß,
Nayus


  

Re: Access String zerlegen
von: Andreas
Geschrieben am: 19.07.2002 - 14:28:08

Genau das war es

Danke dir nayus

Andreas