actionbrowser.com
Discussion: Excel / VBA Formatierung Dezimalstellen (zu alt für eine Antwort) Hallo NG! Ich will in einem Makro berechnete Single-Werte auf einem Excel-Blatt ausgeben, dabei sollen die Werte mit 3 Nachkommastellen ausgegeben werden. Wenn ich mit Cells(a, b) = Format(z, "0. 000") die Werte formatiere und ausgebe, dann wird anstelle eines Dezimal- ein Tausendertrennzeichen ausgegeben. Habe schon so ziemlich alle Formatierungsmöglichkeiten mit 0, # oder einer Kombination getestet, bekomme aber keine 3 Nachkommastellen hin. Ist diese Formatierung nur über die Zellformatierung in Excel selbst möglich oder gibt es doch eine VBA Formatierung mit der das möglich ist? Vielen Dank schon im voraus. Gruß Gilles Novic hallo Gilles, wie wärs mit Round Cells(a, b) = Round(z, 3) oder NumberFormat Cells(a, b) = z Cells(a, b). VBA - So formatieren Sie das Datum - CHIP. NumberFormat = ("0. 000") Gruß stefan -----Originalnachricht----- Hallo NG! Ich will in einem Makro berechnete Single-Werte auf einem Excel-Blatt ausgeben, dabei sollen die Werte mit 3 Nachkommastellen ausgegeben werden.
& String((1, 1), "0") End With End Sub Gruess Hansueli _________________ Forenhelfer danken fr eine Rckmeldung! Der Kluge lernt, der Dummkopf erteilt gern Belehrungen. - Anton Tschechow xlDominik Im Profil kannst Du frei den Rang ndern Verfasst am: 26. Mai 2009, 10:50 Rufname: Dominik meinst Du so etwas? Code: mberFormat = "#, ##0. " & ("0", Range("A1")) Du solltest aber vorher prfen, ob in A1 eine (positive) Zahl steht (und ggf. Ober-/Untergrenzen festlegen) bzw. falls nein, einen Standardwert (z. B. 2) verwenden. Wie formatiere ich ein Textfeld als Währung in Excel?. Gru, xlDominik. P. S. : Habe gerade gesehen, dass Hansuelis Post sich mit meinem berschnitten hat. Ich kannte die VBA-Funktion STRING noch gar nicht. Aber da es sie gibt: umso besser. Vergiss Zuletzt bearbeitet von xlDominik am 26. Mai 2009, 10:56, insgesamt einmal bearbeitet Verfasst am: 26. Mai 2009, 10:55 Rufname: Hansueli Schoooooon wieder ein SELECT.... Ich werd noch wahnsinnig............ Verfasst am: 26. Mai 2009, 11:01 Rufname: Dominik EtoPHG - 26. Mai 2009, 10:55 hat folgendes geschrieben: Schoooooon wieder ein SELECT.... Hansueli, Du hast recht.
Testen Sie, ob die Zellwerte gleich sind: MsgBox Range("A1") = Range("B1") Gibt TRUE zurück, wenn die Zellwerte gleich sind, anderenfalls FALSE. Sie können auch eine If-Anweisung erstellen, um Zellwerte zu vergleichen: If Range("A1") > Range("B1") Then Range("C1") = "Größer als" Elseif Range("A1") = Range("B1") Then Range("C1") = "Gleich" Else Range("C1") = "Kleiner als" End If Auf die gleiche Weise können Sie Text vergleichen (denken Sie daran, dass VBA zwischen Groß- und Kleinschreibung unterscheidet)
Zellenformat via VBA ändern von Markus vom 13. 06. 2005 11:49:08 AW: Zellenformat via VBA ändern, Doppelt oT - von Hajo_Zi am 13. 2005 11:52:28 AW: Zellenformat via VBA ändern, Doppelt oT - von Markus am 13. 2005 13:17:43 AW: Zellenformat via VBA ändern, Doppelt oT - von Hajo_Zi am 13. 2005 13:20:02 AW: Zellenformat via VBA ändern - von Dieter am 13. 2005 12:27:43 AW: Zellenformat via VBA ändern - von Markus am 13. 2005 14:09:38 AW: Zellenformat via VBA ändern - von Hajo_Zi am 13. 2005 18:44:49 AW: Zellenformat via VBA ändern - von Markus am 13. 2005 13:31:08 AW: Zellenformat via VBA ändern - von Markus am 13. 2005 13:42:03 Betrifft: Zellenformat via VBA ändern von: Markus Geschrieben am: 13. 2005 11:49:08 Hallo zusammen, ich muss immer auf Tabellenblatt x den eintrag in cell (a, b) ändern (wobei a und b sich ändern) Das Format hier soll immer datum sein.. also mberFormat = "d/m/yyyy" damit komm ich aber nicht weiter.. kann mir da jemand helfen? Danke Markus Betrifft: AW: Zellenformat via VBA ändern, Doppelt oT von: Hajo_Zi Geschrieben am: 13.
Zellenformat per VBA auf "Text" einstellen Autor Nachricht Adelhorst Excel-Kenner mit VBA Verfasst am: 15. Nov 2011, 20:43 Rufname: Wohnort: Oberfranken Version: Office 2003 Hallo Forum. Vielleicht hat jemand von euch eine Idee fr dieses Problem Eine Tabelle wird ber den AutoFilter gefiltert. Die Filterkriterien werden ber VBA eingestellt. Code: ("A1"). AutoFilter Field:=3, _ Criteria1:="=*" & & "*", _ Operator:=xlAnd Damit wird also der AutoFilter in Spalte3 auf "enthlt - " gesetzt. Dies funktioniert soweit gut. Nun habe ich einen Spalte, die ist auf "Text" formatiert. In dieser Spalte werden 5stellige Nummern eingetragen. Es sind dort 1 bis 3 solcher Nummer in einer einzelnen Zelle mglich. Die Nummern in der Zelle sind durch Komma getrennt. Nun habe ich das Problem, dass der AutoFilter in oben genannter Weise fr diese Spalte nicht anwendbar ist, da die Zellen in denen nur eine einzige Nummer steht vom AutoFilter ausgeblendet wird, obwohl diese Nummer das Kriterium enthlt!? Es scheint, da der AutoFilter in besagter Weise nur dann funktioniert, wenn der Zelleninhalt ein Textfragment enthlt, und der Zelleninhalt nicht ausschlielich numerischer Art ist.
2012 um 10:46 Uhr). 14. 2012, 12:24 # 3 Threadstarter ich glaub ich hab mein Problem noch nicht richtig erklärt, ich versuchs mal mit dem Code. In Zelle A1 steht eine Uhrzeit, z. B. 18:00. Die Zelle wird von einem Automaten beschrieben und die Formatierung steht dann direkt auf Uhrzeit. Dann passiert folgendes: PHP-Code: Dim Uhrzeit As String 'restlicher Code Uhrzeit = Cells(1, 1) Uhrzeit = Replace(Uhrzeit, ":", "'") 'Hier werden: durch ' ausgetauscht, da keine: im Dateinamen zulässig sind. Filename:=" C: Dateiname " & Uhrzeit & ". xlsx " Der Dateiname lautet jetzt aber nicht 'Dateiname ' sondern 'Dateiname 0, '. Irgendwie möchte ich im Dateinamen die Uhrzeit stehen haben statt einer Dezimalzahl. Ich glaube es liegt an der Deklaration der Variablen 'Uhrzeit'. Ich habs mit Integer versucht, aber dann steht da 0. Gruß, Geändert von Egon_McSepp (14. 2012 um 12:27 Uhr). 14. 2012, 12:37 # 4 MOF User Registrierung: 16. 07. 2007 Ich greife mal die Lösung von oben auf... Dim Uhrzeit As String 'restlicher Code Uhrzeit = Format(Cells(1, 1), "hh'mm") 'Uhrzeit = Replace(Uhrzeit, ":", "'") 'Hier werden: durch ' ausgetauscht, da keine: im Dateinamen zulässig sind.
Allgemeine Geschäftsbedingungen Allgemeine Geschäftsbedingungen 1. Geltungsbereich Diese Allgemeinen Geschäftsbedingungen (nachfolgend: AGB) gelten ausschließlich.
500 bis € 3.
Seine Berufserfahrung sammelte er als Sicherheitsmitarbeiter, Führungskraft und Ausbilder in der US-Militärbewachung, bei Forschungseinrichtungen, bei Einrichtungen kritischer Infrastruktur und als Dienstgruppenleiter in einer kerntechnischen Anlage der Europäischen Kommission. Alexander Lukas ist Autor für Fachartikel und Lehrbücher, Dozent für Sicherheitsmitarbeiter, Sicherheitsberater und Inhaber eines aufstrebenden Sicherheitsunternehmens in Karlsruhe. Sicherheitsdienst R&H für Fürth/Nürnberg und die Region -Jobs-. Qualifikationen: Meister für Schutz und Sicherheit, Ausbildereignung, Geprüfte Schutz- und Sicherheitskraft, Unterrichtungsverfahren nach § 34a Gewo, Waffensachkunde Michael Grüner Kursbetreuer & Dozent Michael Grüner ist seit 2004 in der Sicherheitsbranche tätig. Bereits durch seine Ausbildung zur Fachkraft für Schutz und Sicherheit konnte er sich umfassendes Wissen aneignen. Er verfügt über Erfahrungen in verschiedenen Bereichen der privaten Sicherheitswirtschaft wie beispielsweise im Revierdienst, im Sicherheits- und Ordnungsdienst oder in der Leitstellentätigkeit.