find Datum aber benutzerdef. Format
hary
Hilfe und Archiv habe ich schon durchforstet und probiert. Jetzt sagt's Hirn:"Time out".
Und zwar: ich habe 2 Tabellenblaetter sind identisch so aufgebaut(Datum aus Formeln) wie hier gezeigt.
Problem: Habe ich die SpaltenA als Datum formatiert funzt die .find Methode. Formatiere ich die beiden Spalten in benutzer Format TT. um kommt Fehlermeldung vom Code.
Was habe ich uebersehen? Hab auch "Dim a as sonstewas" probiert.
Sub n()
Dim a
Dim zelle As Range
Dim i As Long
For i = 2 To 32
a = ActiveCell.Value
Set zelle = Sheets("Tabelle2").Range("A2:A32").Find(a, LookIn:=xlValues, LookAt:=xlWhole)
MsgBox zelle.Address
Exit Sub
Next
End Sub
Hier sind die Zellen nur zur Anschau verschieden formatiert. Ansonsten natuerlich gleich;-))
Tabelle1
| A | B | C | D | |
| 1 | Jahr | 2010 | Monat | Januar |
| 2 | 01.01.2010 | |||
| 3 | 02.01.2010 | |||
| 4 | 03. | |||
| 5 | 04. |
| verwendete Formeln | |
| Zelle | Formel |
| A2 | =DATUM(JAHR(("1/" &B1));MONAT(D1&1);1) |
| A3 | =A2+1 |
| A4 | =A3+1 |
| A5 | =A4+1 |
| Zahlenformate | ||
| Zelle | Format | Wert |
| A2 | TT.MM.JJJJ | 40179 |
| A3 | TT.MM.JJJJ | 40180 |
| A4 | TT. | 40181 |
| A5 | TT. | 40182 |
Tabellendarstellung in Foren
Habe hier 2007, duerfte aber eigentlich nicht das Prob. sein oder?
Danke schon mal fuers lesen. Hab Ihr mal 'nen Tip.
gruss hary