Hallo,
ich habe in einem Tabellenblatt eine (per STRG-L formatierte) Tabelle, in die ich diverse Daten per Makro übertrage, dabei wird beim letzten Eintrag das Datum in Spalte B immer anders rum (MM.TT.JJJJ) angezeigt. Wenn ich das Format aus der Zeile drüber übertrage, passt es, aber beim nächsten Makrolauf wird das Folgedatum dann wieder verkehrt formatiert.
Ich habe verschiedene Sachen versucht:
- die Tabelle in einen Bereich umgewandelt und wieder in eine Tabelle,
- ich habe den Bereich unterhalb der Tabelle richtig formatiert
trotzdem wird das neue Datum immer so komisch formatiert.
Was mache ich falsch?
Hier ist der Ausschnitt der letzten Zeilen der Liste:
Datenbank
Zellen mit Format Standard werden nicht dargestellt
Hier ist das Makro, wobei ich nicht davon ausgehe, daß es am Makro liegt.
ich habe in einem Tabellenblatt eine (per STRG-L formatierte) Tabelle, in die ich diverse Daten per Makro übertrage, dabei wird beim letzten Eintrag das Datum in Spalte B immer anders rum (MM.TT.JJJJ) angezeigt. Wenn ich das Format aus der Zeile drüber übertrage, passt es, aber beim nächsten Makrolauf wird das Folgedatum dann wieder verkehrt formatiert.
Ich habe verschiedene Sachen versucht:
- die Tabelle in einen Bereich umgewandelt und wieder in eine Tabelle,
- ich habe den Bereich unterhalb der Tabelle richtig formatiert
trotzdem wird das neue Datum immer so komisch formatiert.
Was mache ich falsch?
Hier ist der Ausschnitt der letzten Zeilen der Liste:
Datenbank
A | B | C | D | E | F | G | H | I | J | K | L | |
704 | 10705 | 17.12.2014 | 0,25 | 12_2014 | 2014 | 12 | Offen | 17.12.2014 | offen | |||
705 | 10706 | 17.12.2014 | 0,25 | 12_2014 | 2014 | 12 | Offen | 17.12.2014 | offen | |||
706 | 10707 | 1.13.2015 | 0,25 | 1_2015 | 2015 | 1 | Offen | 13.01.2015 | offen | |||
707 |
verwendete Formeln | |||
Zelle | Formel | Bereich | N/A |
E704:E706 | =WENN(B704="";"";MONAT(B704)&"_"&JAHR(B704)) | ||
F704:F706 | =WENN(D704="";"";MONAT(D704)&"_"&JAHR(D704)) | ||
G704:G706 | =WENN(B704="";"";JAHR(B704)) | ||
H704:H706 | =WENN(B704="";"";MONAT(B704)) | ||
J704:J706 | =WENN(B704="";"";WENN(C704<1;"Offen";"Abgeschlossen")) | ||
K704:K706 | =B704 | ||
L704:L706 | =WENN(C704="";"";WENN(C704=1;"abgeschlossen";WENN(C704=0,875;"fertig";"offen"))) |
Zahlenformate | ||
Zelle | Format | Wert |
B704:B705, K704:K705 | 'TT.MM.JJJJ | 41990 |
B706 | 'M.T.JJJJ | 42017 |
B707, D704: D705, D707, K707 | 'TT.MM.JJJJ | |
C704:C706 | '0,000 | 0,25 |
D706 | 'M.T.JJJJ | |
E704:E705 | 'M.T.JJJJ h:mm | 12_2014 |
E706 | 'M.T.JJJJ h:mm | 1_2015 |
F704:F706 | 'M.T.JJJJ h:mm | |
K706 | 'TT.MM.JJJJ | 42017 |
Excel-Inn.de |
Hajo-Excel.de |
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
Add-In-Version 18.19 einschl. 64 Bit |
Hier ist das Makro, wobei ich nicht davon ausgehe, daß es am Makro liegt.
PHP-Code:
Sub prcÜbertragen_in_Datenbank()
Application.ScreenUpdating = False
Set wsSource = Workbooks("Übersicht.xlsb").Worksheets("offen")
Set wbGoal = Workbooks.Open(Filename:="T:\...\Dateiname.xlsb")
Set wsGoal = wbGoal.Worksheets("Datenbank")
lngLastRow = wsGoal.Range("B" & wsGoal.Rows.Count).End(xlUp).Row '- 1 ' letzte belegte Zeile in Spalte B
Set rngGoal = wsGoal.Range("A" & lngLastRow) 'definierte Zelle für weitere Aktionen setzen
With rngGoal
.ListObject.ListRows.Add
.Offset(1, 0).Value = strReportNr
lngLastRow = wsSource.Range("U" & wsSource.Rows.Count).End(xlUp).Row ' letzte belegte in Spalte U
.Offset(1, 1).Value = dteStartDatum ' wsSource.Range("U" & lngLastRow).Value ' Datum kopieren und einfügen
.Offset(1, 2).Value = 0.25 '.FormulaLocal = "=0,250"
End With
' loLetzte = wsGoal.Range("B" & wsGoal.Rows.Count).End(xlUp).Row ' letzte belegte Zeile in Spalte B
' Reportnummer-10000 = neue Zeilennummer in COMPLAINT_Datenbank
Zielzeile = strReportNr - 10000 - 1 ' Zielzeile = neue Reportnummer - 1
MsgBox ("Eintrag in Zeile: " & Zielzeile)
wsGoal.Range("K" & Zielzeile - 1 & ":AC" & Zielzeile - 1).Copy wsGoal.Range("K" & Zielzeile & ":AC" & Zielzeile)
Set wsGoal = Nothing
wbGoal.Close savechanges:=True
Application.ScreenUpdating = True