Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!

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

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


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
Anzeige
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

306 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
4
5
2
1
3
5
1
11
2
2
5
3
1
7
2
2
6
1
1
4
21
2
2