Komplettes Tabellenblatt formatieren

[Frank Haug]

Hallo NG,
Excel2002: ich suche eine VBA-Funktion, die alle Zellen einer Tabelle
alphanumerisch (Text) formatiert.
Danke für die Hilfe
Frank

[Hervé RICHARD]

Hallo Frank,

wie wär's mit der .NumberFormat Eigenschaft eines Ranges ?
ich glaube mit Cells.NumberFormat = "@" müsstest du alles auf einmal
konvertiert haben.

Hoffe es hilft.

Bis dann.

Post by Frank Haug
Hallo NG,
Excel2002: ich suche eine VBA-Funktion, die alle Zellen einer Tabelle
alphanumerisch (Text) formatiert.
Danke für die Hilfe
Frank

[Frank Haug]

Hallo Richard,
bin leider nicht so erfahren: Wie müsste die komplette Funktion mit
Übergabeparameter aussehen?

Vielen Dank

Gruß Frank

Post by Hervé RICHARD
Hallo Frank,
wie wär's mit der .NumberFormat Eigenschaft eines Ranges ?
konvertiert haben.
Hoffe es hilft.
Bis dann.

Post by Frank Haug
Hallo NG,
Excel2002: ich suche eine VBA-Funktion, die alle Zellen einer Tabelle
alphanumerisch (Text) formatiert.
Danke für die Hilfe
Frank

[Hervé RICHARD]

OK,
also in deiner Tabelle öffnest du den VBA-Editor (Alt+F11)
und fügst zum Beispiel unter den "Microsoft ExcelObjekte" ein neues Modul
(rechte-Maus-click unsw.)
dann öffnest das letztere und (angenommen du hast nur 1 Arbeitsblatt), würde
schon reichen:

Sub AlleZellenAlsText()
Cells.NumberFormat = "@"
End Sub

ist zwar ein wenig minimalistisch, funkioniert haber.
Falls du mehrere Arbeitsblätter haben solltest, füge einfach
ThisWorkbook.Worksheets("Tabelle1").Activate
in der 2. Zeile.

"Tabelle1" sollte das entsprechen was auf deinem Reiter steht.
jetzt mußt du dieses Modul irgendwie aufrufen, wenn es nur eine "1 Mal"
Sache ist, kann du ins Direktfenster "AlleZellenAlsText" eintragen.
Falls es beim Öffnen jedes Mal passieren sollte, doppel-klickst du auf
"DieseArbeitsmappe" und trägst ein:

Private Sub Workbook_Open()
AlleZellenAlsText
End Sub

zu- und aufmachen, und die Magie kann anfangen...
So, damit müßtest du echt ALLES haben ;)
Viel Spaß noch.

Post by Frank Haug
Hallo Richard,
bin leider nicht so erfahren: Wie müsste die komplette Funktion mit
Übergabeparameter aussehen?
Vielen Dank
Gruß Frank

Post by Hervé RICHARD
Hallo Frank,
wie wär's mit der .NumberFormat Eigenschaft eines Ranges ?
konvertiert haben.
Hoffe es hilft.
Bis dann.

Post by Frank Haug
Hallo NG,
Excel2002: ich suche eine VBA-Funktion, die alle Zellen einer Tabelle
alphanumerisch (Text) formatiert.
Danke für die Hilfe
Frank

[Andreas Killer]

Post by Frank Haug
bin leider nicht so erfahren: Wie müsste die komplette Funktion mit
Übergabeparameter aussehen?

Dann muss ich mal fragen wieso Du nicht Strg-A, Strg-1 drückst und die
Zellen so formatierst wie Du möchtest?

BTW, wenn Du dabei so nebenbei den Makrorecorder laufen lässt bekommst
Du ein fertiges lauffähiges Makro, das genau das macht was Du möchtest.

Andreas.

[Frank Haug]

Hallo Andreas,
ich brauche die Funktion immer wieder und will von VBA aus verschiedene
Tabellenblätter formatieren. Mit dem Aufruf der Funktion soll der Name des
Blattes als Parameter mitgegeben werden.
Frank

Post by Andreas Killer

Post by Frank Haug
bin leider nicht so erfahren: Wie müsste die komplette Funktion mit
Übergabeparameter aussehen?

Dann muss ich mal fragen wieso Du nicht Strg-A, Strg-1 drückst und die
Zellen so formatierst wie Du möchtest?
BTW, wenn Du dabei so nebenbei den Makrorecorder laufen lässt bekommst
Du ein fertiges lauffähiges Makro, das genau das macht was Du möchtest.
Andreas.

[t***@gmail.com]

Grüezi Frank

Post by Frank Haug
Excel2002: ich suche eine VBA-Funktion, die alle Zellen einer Tabelle
alphanumerisch (Text) formatiert.

....und Du bist wirklich sicher, dass Du die Standard-Formatierung
koplett 'über Bord' werfen willst?

Keine Formel, die Du (oder jemand der die Mappe verwendet) in eine
dieser Zellen schreibt wird funktionieren sondern als text ausgegeben
werden.


Ansätze wie Du das lösen kanns hast Du ja bereits erhalten - mich
interessiert halt der Hintergrund, denn ich halte dies für
gefährlich...


--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für MS-Excel -

[Frank Haug]

Hallo Thomas,
das Tabellenblatt soll in Access weiterverarbeitet werden und dafür ist ein
einheitliches aphanumerisches Format am geeignetsten.
Grüße Frank

Post by t***@gmail.com
Grüezi Frank

Post by Frank Haug
Excel2002: ich suche eine VBA-Funktion, die alle Zellen einer Tabelle
alphanumerisch (Text) formatiert.

.....und Du bist wirklich sicher, dass Du die Standard-Formatierung
koplett 'über Bord' werfen willst?
Keine Formel, die Du (oder jemand der die Mappe verwendet) in eine
dieser Zellen schreibt wird funktionieren sondern als text ausgegeben
werden.
Ansätze wie Du das lösen kanns hast Du ja bereits erhalten - mich
interessiert halt der Hintergrund, denn ich halte dies für
gefährlich...
--
Mit freundlichen Grüssen
Thomas Ramel
- MVP für MS-Excel -

[Alexander Wolff]

Post by Frank Haug
das Tabellenblatt soll in Access weiterverarbeitet werden und dafür
ist ein einheitliches aphanumerisches Format am geeignetsten.

Nö. Ist es nicht.

Wenn Du schon Excel als Eingabemedium nutzst, hast Du auch den Vorteil, dass
Zahlen rechtsbündig und mit festen Kommastellen eingegeben werden können.
Außerdem kommt Access prima mit den Daten aus Excel klar, denn das
Hineinkopieren einer Excel- in einer Accestabelle erzwingt bei Access doch
gerade die Typangleichung.

[t***@gmail.com]

Grüezi Frank

Post by Frank Haug
das Tabellenblatt soll in Access weiterverarbeitet werden und dafür ist ein
einheitliches aphanumerisches Format am geeignetsten.

Danke für diese Hintergrund-Info; das macht dein Ansinnen etwas
'durchsichtiger'.

Dennoch stelle ich mich auf den gleichen Standpunkt wie Alexander:

Mit einem generelles Zellenformat über das komplette Tabellenblatt
verschenkst Du dir enorme Vorteile beim Import in Access.
Ich würde hier auf eine dezidierte spaltenweise Formatierung setzen,
die exakt den Daten angepasst ist - String wo notwendig und numerisch
wo möglich.

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für MS-Excel -