Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1844to1848
1844to1848
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum umformatieren?

Forumthread: Makro zum umformatieren?

Makro zum umformatieren?
01.09.2021 13:49:38
Andreas
Hi zusammen,
brauche bitte eure Hilfe für ein Makro.
Habe eine Tabelle, die ich aus Access exportiere um sie in Excel auszuwerten.
Mein Problem ist, dass in Spalte E Zahlen stehen, die nach dem Export aber als Text formatiert sind.
Nun möchte ich also ein Makro haben, das ich jedes mal nach dem Datenexport alle Werte in Spalte E von einem Text in eine Zahl umformatiert.
Die Spalte E hat eine Überschrift.
Vielen Dank vorab
Gruß Andreas
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum umformatieren?
01.09.2021 14:26:41
Sigi.21
Hallo,
wozu Makro? - Einfach deine Textzahlen mit 1 multiplizieren.
So:
Eine eins (1) in irgend eine Zelle eintippen. Die 1 in die Zwischenablage kopieren (Strg + c).
Alle betreffenden Textzahlen mit Maus markieren
Rechte Maustaste - Inhalte einfügen - multiplizieren - ok
Zellen wunschgemäß formatieren
Gruß Sigi
Anzeige
AW: Makro zum umformatieren?
01.09.2021 15:25:37
Andreas
Danke für deinen Lösungsvorschlag Sigi, das sollen aber später Leute benutzen können, die Absolut keine Ahnung von PCs haben.
Du wirst lachen, aber es gibt immer noch genug Leute die nicht einmal wissen wofür Strg + C gut ist : )
Habe bereits ein spitzen Makro von Michael bekommen.
Funktioniert 1 a
Gruß Andreas
Anzeige
Also Makro...
01.09.2021 14:39:50
migre
Hallo,
das was Sigi vorgeschlagen hat:

Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim r As Range, c As Range
With Ws
With .UsedRange
Set c = .Offset(.Rows.Count, .Columns.Count).Resize(1, 1)
c.Value = 1
End With
Set r = .Range("E1:E" & .Cells(.Rows.Count, 5).End(xlUp).Row)
c.Copy
r.PasteSpecial xlPasteAll, xlPasteSpecialOperationMultiply
c.ClearContents
End With
End Sub
LG Michael
Anzeige
AW: Also Makro...
01.09.2021 15:02:12
Andreas
Vielen Dank Michael, funktioniert wie gewünscht : )
Einen schönen Nachmittag
Gruß Andreas
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige