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
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle mit Zahl zerlegen

Forumthread: Zelle mit Zahl zerlegen

Zelle mit Zahl zerlegen
18.09.2008 14:57:00
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, X2 und X3. um sie dann weiter zu verarbeiten.
Irgendwie finde ich keine Lösung und auch die suche hat nichts ergeben.
Gruß Karsten
PS.: ist bestimmt ganz easy und ich sehe den Wald vor lauter Bäumen nicht!
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle mit Zahl zerlegen
18.09.2008 14:59:28
Hajo_Zi
Hallo Karsten,
mache es ojne VBA Daten, Text in Spalten

AW: Zelle mit Zahl zerlegen
18.09.2008 15:10:41
Karsten
Hallo Hajo,
ist leider nicht möglich die Versionsnummer auf mehere Spalten "splitten" , da diese Zahlenabfolge anderweitig abgefragt wird.
Gruß Karsten.
AW: Zelle mit Zahl zerlegen
18.09.2008 15:24:51
Hajo_Zi
Hallo Karsten,
in VBA ist es Split

Anzeige
AW: Zelle mit Zahl zerlegen
18.09.2008 15:25:49
Karsten
Hallo Hajo,
SPLIT gibt es in Excel97 noch nicht :-(
Gruß Karsten
AW: Zelle mit Zahl zerlegen
18.09.2008 15:24:58
Chris
Servus Karsten,
so:

Sub tt()
Dim DatArray, Index, i As Long
DatArray = Range("A1")
Index = Split(DatArray, ".")
For i = LBound(Index) To UBound(Index)
MsgBox Index(i)
Next i
End Sub


wobei deine Versionsnummer in diesem Makro in A1 stehen muss (ggf. anpassen).
Gruß
Chris

Anzeige
AW: Zelle mit Zahl zerlegen
18.09.2008 15:28:44
Karsten
Hallo Chris,
vielen Dank, aber leider gibt es in Excel97 kein Splitt :-(
Gruß Karsten
AW: Zelle mit Zahl zerlegen
18.09.2008 17:39:00
Chris
Servus,
falls es immer noch nicht geht. das funktioniert auch in xl97:

Sub t()
Dim DatenArray(), Reihenfolge(), Zusammen(), x, y, i
For i = 1 To Len(Range("A1"))
If IsNumeric(Mid(Range("A1"), i, 1)) Then
ReDim Preserve DatenArray(x)
ReDim Preserve Reihenfolge(x)
DatenArray(x) = Mid(Range("A1"), i, 1)
Reihenfolge(x) = i
x = x + 1
End If
Next i
For i = LBound(Reihenfolge()) + 1 To UBound(Reihenfolge())
If Reihenfolge(i) = Reihenfolge(i - 1) + 1 Then
DatenArray(i) = DatenArray(i - 1) & DatenArray(i)
DatenArray(i - 1) = ""
End If
Next i
For i = LBound(DatenArray()) To UBound(DatenArray())
If DatenArray(i)  "" Then
ReDim Preserve Zusammen(y)
Zusammen(y) = DatenArray(i)
y = y + 1
End If
Next i
For i = LBound(Zusammen()) To UBound(Zusammen())
MsgBox Zusammen(i)
Next i
End Sub


Gruß
Chris

Anzeige
AW: Zelle mit Zahl zerlegen
18.09.2008 17:55:00
Karsten
Hallo Chris,
vielen Dank für Deine Bemühungen.
Werde Deine Lösung auch mal ausprobieren.
Die andere Lösung von Peter habe ich zum laufen gebracht. Woher der Fehler 35012 kam, keine Ahnung.
Gruß Karsten
Split 97
18.09.2008 15:29:00
Peter
Servus,
wie schon gesagt gibt es Vers. 97 noch kein Split, aber Tom Ogilvy hat sich dazu mal was ausgedacht.

Function Split97(sStr As Variant, sdelim As String) As Variant
'Tom Ogilvy
Split97 = Evaluate("{""" & _
Application.Substitute(sStr, sdelim, """,""") & """}")
End Function


Anzeige
AW: Split 97
18.09.2008 16:03:10
Karsten
Hallo Peter,
vielen Dank, Deine Funktion hilft das Split "einzusetzen", aber wenn ich dann etwas editieren möchte erhalte ich immer eine Fehlermeldung:
"Unerwarteter Fehler (35012)"
Gruß Karsten
AW: Split 97
18.09.2008 16:22:36
Peter
Servus,
kann ich nicht nachvollziehen, mit meinem Bsp. geht das ohne Probleme.
Generell muss ich das auf der Arbeit oft verwenden (leider die selbe xls. Version),
hatte noch nie Probleme.

Sub t()
Dim sWert(2) As String
Dim arrWert
Dim iCount As Integer
sWert(0) = "1.23.45.": sWert(1) = "12.3.45": sWert(2) = "12.34.56"
For iCount = LBound(sWert) To UBound(sWert)
arrWert = Split97(sWert(iCount), ".")
Debug.Print arrWert(1) & Chr(13) & arrWert(2) & Chr(13) & arrWert(3)
Next
End Sub


Ergebnis:
1
23
45
12
3
45
12
34
56
P.S.: Sonst nutze halt die Funktion von Rudi, diese benutzt auch kein Split
MfG
Peter

Anzeige
AW: Split 97
18.09.2008 17:57:00
Karsten
Hallo Peter,
die erste Variante läuft jetzt doch mit Deiner Slipt97 Function.
Woher der Fehler 35012 kam und wieso, keine Ahnung.
Deshalb hier nochmals, vielen Dank für Deine Hilfe.
Hat mir wirklich sehr geholfen!!!!
Gruß Karsten
AW: Zelle mit Zahl zerlegen
18.09.2008 15:30:26
Rudi
Hallo,
da ich nicht weiß, ob es in VBA5 Replace schon gab, ein wenig komplizierter:

Sub tt()
Dim strZahl As String, arrZahl
strZahl = "1.23.45"
arrZahl = Split(strZahl, ".")
End Sub
#If VBA6 Then
#Else
Function Split(strZahl As String, strDelim As String)
Dim i As Integer, strTmp As String
For i = 1 To Len(strZahl)
strTmp = strTmp & IIf(Mid(strZahl, i, 1) = strDelim, ",", Mid(strZahl, i, 1))
Next
Split = Evaluate("{" & strTmp & "}")
End Function
#End If

Gruß
Rudi

Anzeige
AW: Zelle mit Zahl zerlegen
18.09.2008 16:03:00
Karsten
Hallo Rudi,
vielen Dank, aber Excel97 hat kein Split :-(
Gruß Karsten
AW: Zelle mit Zahl zerlegen
18.09.2008 16:14:31
Rudi
Hallo,
habe ich auch nicht behauptet.
Dafür habe ich ja die Function beigefügt.
Gruß
Rudi
;

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Zahlencode mit Punkte Formatieren
runny

Wer kann mir weiter helfen.
Ich habe einen 10-stelligen Zahlencode 0265006214 und diesen soll Excel autom. in das Format 0265.006.214 bringen.
Also nach der 4.Stelle und der 7.Stelle einen Punkt (SAP-Format). Zelle formatieren und ####.###.### habe ich schon ohne Erfolg geprüft.
Er...
28.08.2008 00:14:00
Thread-ID: 1005247
3 Beiträge
Anzahl mit mehreren Kriterien berechnen
TobiasM

Hallo,
ich habe aus einer Datentabelle Summen über folgende Formel berechnet:
=SUMMENPRODUKT((Daten!$E$2:$E$571=2005)*(Daten!$B$2:$B$571="Mittelstand")*(Daten!$F$2:$F$571=50) *(Daten!$G$2:$G$571))
Enspricht Berechnung Summe Umsatz (Spalte G) mit folgenden Kriterien:
Jahr: 2005...
29.08.2008 12:07:00
Thread-ID: 1005786
2 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Zahl als Text
Volker

Guten Morgen zusammen,
mich beschäftigt ein -für Euch warscheinlich kleines-Problem.
Ich versuche mehrere Zellen zusammenzufassen.
Dies geschieht mittels =H9&C3&JAHR(C1)&C3&C2 entspricht "blabla-2008-1".
Soweit so gut. In Zelle C2 steht allerdings 001. Dieses...
26.09.2008 10:00:00
Thread-ID: 1012518
3 Beiträge
Anzeige
Kontextmenü mit Zahlen auswählen ?
Margarete

Hallo zusammen,
ich habe mal wieder eine Frage: kann ich im Kontextmenü der Maus Menüs über Zahlen auswählen?
Beispiel:
Für Auswahl GR Aktual 2008 die 1
für Auswahl GR Tool 2008 die 2
CommandBars("Cell").Reset
Set objNeuerEintrag = CommandBars("Cell").Controls.Add
W...
26.09.2008 11:39:18
Thread-ID: 1012559
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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