Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro: Ohne Hilfsspalte Zeichen ergänzen & format

Forumthread: Makro: Ohne Hilfsspalte Zeichen ergänzen & format

Makro: Ohne Hilfsspalte Zeichen ergänzen & format
16.03.2017 09:54:31
Marcel
Hallo zusammen,
ich habe in Spalte A Artikelnummern stehen die entweder 9 oder 10 Zeichen haben. Wenn die Artikelnummern 9 Zeichen haben liegt das daran, dass eigentlich eine "0" vorangestellt sein müssten. Außerdem soll noch zwischen 3. und 4. sowie 8. und 9 Stelle ein Punkt eingefügt werden.
Im Prinzip diese Formatierung: "0#\.####\.####"
Ich möchte es aber nicht nur so formatiert haben, dass es so aussieht sondern, dass die Zahlen so tatsächlich in der Spalte stehen.
Ich habe das leider nur über Formeln und zwei Hilfsspalten hinbekommen:
=RECHTS(WIEDERHOLEN("0";14)&A1;10)
=VERKETTEN(LINKS(A1;2);".";TEIL(A1;3;4);".";RECHTS(A1;4))
Könnt ihr mir helfen, wie das als Makro ohne Hilfsspalten funktioniert?
Danke und Grüße
Marcel
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro: Ohne Hilfsspalte ...
16.03.2017 10:06:09
Bernd
Hi,
meinst Du so:
00"."0000"."000
MfG Bernd
Über VBA
16.03.2017 10:13:23
Sven 

dim z as Range
dim artikel as String
for each z in range("A1:A10000")    'Bereich anpassen
if z.value="" then exit for
artikel=z.value
if len(artikel) = 9 then artikel = "0" & artikel
artikel=str(format(artikel,"00.0000.0000"))
z.value=artikel
next

Grüße
Sven
Anzeige
Fehler in Formel
16.03.2017 10:31:12
Marcel
Hallo Sven,
leider bringt er einen Fehler in diesem Bereich bei format: artikel = Str(format(artikel, "00.0000.0000"))
Kannst Du nochmal helfen?
Grüße
Marcel
AW: Fehler in Formel
16.03.2017 11:52:07
Sven 

Option Explicit
Public Sub ArticleFormat()
Dim z As Range
Dim artikel As String
For Each z In Tabelle1.Range("A1:A10000")    'Bereich anpassen
If z.Value = "" Then Exit For
artikel = Replace(Str(z.Value), " ", "")
If Len(artikel) = 9 Then artikel = "0" & artikel
artikel = Left(artikel, 2) & "." & Mid(artikel, 3, 4) & "." & Mid(artikel, 7, 4)
z.Value = artikel
Next
End Sub

Anzeige
Danke!
16.03.2017 13:54:14
Marcel
Hallo Sven,
vielen Dank - funktioniert prima!!!
Viele Grüße
Marcel
AW: Danke! und zu...
16.03.2017 13:59:57
robert
Noch nicht schließen bitte
16.03.2017 15:48:50
Marcel
Wie schaffe ich es, dass das Makro in allen Tabellenblättern angewendet wird?
Danke und Gruß
Anzeige
so ?
16.03.2017 16:14:31
robert 

Public Sub ArticleFormat()
Dim z As Range
Dim artikel As String
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
For Each z In wks.Range("A1:A10000")    'Bereich anpassen
If z.Value = "" Then Exit For
artikel = Replace(Str(z.Value), " ", "")
If Len(artikel) = 9 Then artikel = "0" & artikel
artikel = Left(artikel, 2) & "." & Mid(artikel, 3, 4) & "." & Mid(artikel, 7, 4)
z.Value = artikel
Next
Next wks
End Sub

Anzeige
Fehler in Formel
17.03.2017 09:56:40
Marcel
Hi Robert,
Danke, aber bei Dir ist noch irgendwo ein Fehler in der Zeile:
artikel = Replace(Str(z.Value), " ", "")
Viele Grüße
Marcel
getestet-kein Fehler bei mir-owT
17.03.2017 15:26:05
robert
Mit der Format-Funktion...
16.03.2017 19:28:57
{Boris}
Hi,
...geht es auch so:
Option Explicit
Sub oder_so()
Dim C As Range, Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
For Each C In Ws.Range("A1:A1000")
If C  "" Then C = Format(C, "00\.0000\.0000")
Next C
Next Ws
End Sub
VG, Boris
Anzeige
Danke - funktioniert
17.03.2017 09:57:52
Marcel
Hi Boris,
danke, Deine Version funktioniert!
Viele Grüße
Marcel
=TEXT(A1;"00\.0000\.0000")
16.03.2017 11:15:36
{Boris}
VG, Boris
Makro: Artikelnummern anpassen
16.03.2017 12:30:23
Rudi
Hallo, 
Sub ArtNummer()
Dim vArr, i As Long
vArr = Cells(1, 1).CurrentRegion.Resize(, 1)
For i = 2 To UBound(vArr)
vArr(i, 1) = Format(CLng(vArr(i, 1)), "00"".""0000"".""0000")
Next
Cells(1, 1).Resize(UBound(vArr), UBound(vArr, 2)) = vArr
End Sub
Gruß
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
Anzeige
Mittelwertberechn. mit var. Spaltenlänge
Falk

Hallo,
Zur Situation
in einer Excelspalte (z.B. A) füge ich - aus einem anderen Programm - kopierte Zahlen ein. Excel schreibt die, in Spalte A, eingefügten Zahlen untereinander. In der Spalte B berechne ich dann den Mittelwert wie folgt: =SUMME(A2:A1872)/1871
Mein Problem
Weil...
15.09.2008 11:21:00
Thread-ID: 1009725
5 Beiträge
Zelle mit Zahl zerlegen
Karsten

Hallo Leute,
folgendes Problem:
ich habe in der Zelle N3 eine Versionsnummer stehen (Beispiel) 1.23.45.
Wobei die Position der Punkte nicht fest ist, also wären auch 12.3.45 oder 12.34.56 möglich.
Diese Versionsnummer möchte ich nun in VBA auf 3 Variablen verteilen, also X1, X...
18.09.2008 14:57:00
Thread-ID: 1010749
16 Beiträge
Anzeige
Spalte mit x = Wert möglich ?
Petra

Hallo
Ich möchte gerne wenn in Spalte B3 ein x eingetragen wird, das dann in Spalte B3 der Wert aus Spalte B1 eingetragen wird.
Ich weiß das es per Formel =Wenn(B3="x";B1;0) geht, aber dann müßten wir hier Behelfsspalten einbauen was nicht gewünscht wird.
Habe es per Bedingter Forma...
23.09.2008 15:34:17
Thread-ID: 1011775
21 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Zelle mit 50 stelliger Zahl
Mathias

Hallo guten morgen,
kann mir bitte jemand sagen wie ich eine Zelle so formatieren kann das darin eine ca. Zahl mit 50 Stellen angezeigt wird.
Folgendes Problem,die Zahl sind so auf 350015+28€ d.h. sie wird als Text angezeigt, formatiere ich diese als Zahl bekomme ich zwar etliche Stell...
21.10.2008 08:33:45
Thread-ID: 1017842
3 Beiträge
immer gleicher zellen wert aus untersch. reg
Jessi

hallo zusammen,
ich bin mir sicher es ist kein hexenwerk:
ich habe ein problem und zwar habe ich ein übersichtssheet aus verschiendenen werten, die immer aus der gleiche zelle eines anderen register stammen.
z.b.
register100, wert spalte a, zeile 1
register100a, wert spalte...
06.11.2008 11:12:00
Thread-ID: 1022199
10 Beiträge
Jede Zahlenwertänderung mit Blinken der Zelle
Steffi

anzeigen.
Ist sowas möglich? HAt jemand eine Idee?
Soll nur einmal blinken, also kein Dauerblinken.
LG
Steffi
07.11.2008 19:28:58
Thread-ID: 1022795
5 Beiträge
Anzeige
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Spaltenumbruch mit zahlen
Andreas

Salü Zusammen
Dieses Makro zur Einfügung von Seitenumbrüchen habe ich im Archiv gefunden. Kann mir jemand die Angaben mache, damit es anstelle von Buchstaben auch mit Zahlen funktioniert?
Ich möchte, dass sobald die Zahl in Spalte N wechselt ein Seitenumbruch eingefügt wird.
Das wäh...
27.11.2008 13:23:20
Thread-ID: 1028340
2 Beiträge
Anzeige
Spalten mit mehrfachen Datumswerten löschen
Claudia

Hallo zusammen,
ich brauche mal wieder Eure Hilfe. Ich habe eine Tabelle die folgenden Aufbau hat.
Zeile 1 = Überschrift
Ab Zeile 2 stehen Werte (in Spalte A jeweils Datumswerte, die Tabelle ist chronologisch sortiert, das jüngste Datum steht unten).
Jetzt möchte ich - da am Tag...
19.01.2009 10:29:01
Thread-ID: 1041331
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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