HERBERS Excel-Forum - das Archiv
Übergeben als Long Integer
Stefan

Mit Eurer Hilfe habe ich meine Programmierung fast hinbekommen. Jedoch werden die Zahlen nicht richtig übergeben, sodaß automatisch ein "spezieller Filter" gesetzt wird und die Zahlen an eine falsche Zeile übergeben werden. Grund für diesen Dreckseffekt ist folgender Befehl:
Workbooks("A_Rechnungen.xlsx").Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 7).Value = ThisWorkbook.Sheets("Rechnung").Range("F47").Value
Dieser Befehl funktioniert, jedoch gibt es einen Fehler. Grund hierfür ist, daß diese Zahl als Währung dargestellt wird. Wie kann ich den Zellenwert F47 als zweistelligen Long Integer übergeben?

AW: Übergeben als Long Integer
Nepumuk

Hallo,
weder Long noch Integer können Nachkommastellen haben.
Versuch es mal so:
Workbooks("A_Rechnungen.xlsx").Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 7).Value = CDbl(ThisWorkbook.Sheets("Rechnung").Range("F47").Value)
Gruß
Nepumuk

AW: Übergeben als Long Integer
Stefan

Danke Dir Nepumuk,
nachdem ich die Datei A_Rechnungen neu erstellt habe funktionierte es. Der Müll, der durch den Befehl ohne "CDbl" verursacht wurde ging nicht mehr raus. Vielen Dank, daß jetzt automatisch die Felder befüllt werden können - das ist fehlerfrei!
Stefan

dann zu. owT
Rudi

Übergeben als Long Integer
Stefan

Mit Eurer Hilfe habe ich meine Programmierung fast hinbekommen. Jedoch werden die Zahlen nicht richtig übergeben, sodaß automatisch ein "spezieller Filter" gesetzt wird und die Zahlen an eine falsche Zeile übergeben werden. Grund für diesen Dreckseffekt ist folgender Befehl:
Workbooks("A_Rechnungen.xlsx").Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 7).Value = ThisWorkbook.Sheets("Rechnung").Range("F47").Value
Dieser Befehl funktioniert, jedoch gibt es einen Fehler. Grund hierfür ist, daß diese Zahl als Währung dargestellt wird. Wie kann ich den Zellenwert F47 als zweistelligen Long Integer übergeben?

AW: Übergeben als Long Integer
Nepumuk

Hallo,
weder Long noch Integer können Nachkommastellen haben.
Versuch es mal so:
Workbooks("A_Rechnungen.xlsx").Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 7).Value = CDbl(ThisWorkbook.Sheets("Rechnung").Range("F47").Value)
Gruß
Nepumuk

AW: Übergeben als Long Integer
Stefan

Danke Dir Nepumuk,
nachdem ich die Datei A_Rechnungen neu erstellt habe funktionierte es. Der Müll, der durch den Befehl ohne "CDbl" verursacht wurde ging nicht mehr raus. Vielen Dank, daß jetzt automatisch die Felder befüllt werden können - das ist fehlerfrei!
Stefan

dann zu. owT
Rudi

Bewerten Sie hier bitte das Excel-Portal