Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

str in int ändern und alles auser zahlen löschen

Forumthread: str in int ändern und alles auser zahlen löschen

str in int ändern und alles auser zahlen löschen
02.03.2007 15:55:00
Swen
Hallo an alle,
wie kann ich z.B.
folgende drei strVariabeln mit einer prüfung zur integervariabel umbauen.
fall1
strText = "15"
fall2
stText = "1500 µm"
fall3
stText = "150µm"
so das immer nur die zahlen in die varible intErgebniss übernommen werden.
alle zeichen die keine zahl sind könnn aus dem string entnommen werden.
wie müsste so eine schleife aussehen?
gruß
swen
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: str in int ändern und alles auser zahlen lösch
02.03.2007 16:06:38
EtoPHG
Hallo Swen,
Da brauchst keine Fallunterscheidung.
Das kann in allen Fällen so heissen:

ix = Val(strText)

Gruss Hansueli
AW: str in int ändern und alles auser zahlen lösch
02.03.2007 16:09:12
Anton
Hallo Swen,
versuch's mal so:

Sub test()
  Dim strText As String  
  strText = "1500 µm"
  strText = Replace(strText, "µm", "")
  MsgBox CInt(strText)
End Sub  

mfg Anton
Anzeige
AW: str in int ändern und alles auser zahlen lösch
02.03.2007 16:14:50
EtoPHG
Hallo Anton,
Da fällt es mir wie Schuppen aus den Haaren...
Warum auch einfach wenn's kompliziert geht.
;-) Schönes Wochenende....
Gruss Hansueli
AW: str in int ändern und alles auser zahlen lösch
02.03.2007 16:19:00
Swen
Hallo,
wäre es nicht möglich das ich mir jedes zeichen über eine schleife anschaue
und wenn es eine zahl ist bleibt sie in dem string und wenn es (not numeric)
lösche ich das zeichen!
das wäre meine idee weis aber leider nicht wie
ich heraus bekomme wieviele zeichen die string hat
und wie ich dann in der schleife ihm sage dieses zeichen
löschen und dieses behalten?
gruß
swen
Anzeige
OMG please read your post's
02.03.2007 16:25:00
EtoPHG
Hallo Swen,
Userbild
AW: OMG please read your post's
02.03.2007 16:34:48
Swen
sorry etoPHG,
da stand ich gerade auf der leitung,
danke für die hilfe.
sorry wegen den schuppen und so.... :-)
gruß
swen
AW: str in int ändern und alles auser zahlen lösch
02.03.2007 16:39:00
IngGi
Hallo Swen,
folgende Funktion liefert dir eine Integervariable zurück. Aber warum nimmst du nicht die sehr viel einfachere Lösung von Hansueli? Die einzige Situation, in der diese einfache und daher beste Lösung nicht funktioniert ist die, dass vor der ersten Ziffer schon Buchstaben/Sonderzeichen stehen. Dann würde Val() eine 0 zurückgeben.

Function StrToInt(strVariable As String) As Integer
Dim s As String
Dim intVariable As Integer
Dim i As Integer
'Vorlauf raus
i = 1
Do Until IsNumeric(s) Or i > Len(strVariable)
   s = M id(strVariable, i, 1)
   i = i + 1
Loop
'wenn keine Zahl gefunden
If i > Len(strVariable) Then
   MsgBox "Keine Zahl gefunden!", v bCritical
   Exit Function
End If
'letzte Erhöhung rückgängig
i = i -  1
'Zahl übernehmen
Do
   If Not Mid(strVariable, i, 1) = " " Then
      If IsNumeric(Mid(strVariable, i, 1)) Then
         s = s& nbsp;& Mid(strVariable, i, 1)
      Else
         Exit Do
      End If
   End If
   i = i + 1
Loop
s = Right(s, Len(s) - 1)
i ntVariable = Int(s)
StrToInt = intVariable
End Function

Gruß Ingolf
Anzeige
AW: str in int ändern und alles auser zahlen lösch
02.03.2007 16:47:00
Swen
Hallo Ingo,
ich habe es mit val gemacht.
danke für deine erklärung es hat mir sehr geholfen da ich so sehen
konnte wie man es auch mit meiner sicherlich nicht optimalen idee lösen konnte!
danke nochmal
gruß
swen
AW: str in int ändern und alles auser zahlen lösch
02.03.2007 16:31:30
Anton
Hallo Hansueli,
Zitat aus OH: 
Die Val-Funktion liest die Zeichen einer Zeichenfolge bis zum ersten Zeichen, das nicht als Teil einer _
Zahl interpretiert werden kann. _
Das folgende Beispiel gibt den Wert 44137 zurück:
Val("  44137 Dortmund, Westenhellweg 112")

mfg Anton
Anzeige
AW: str in int ändern und alles auser zahlen lösch
02.03.2007 16:34:00
EtoPHG
Hallo Anton,
Und jetzt ?
Was glaubst Du gibt sie zurück bei den erwähnten Strings ? Vielleicht Schweizer Käse ?
Gruss Hansueli
;

Forumthreads zu verwandten Themen

Zahlen aus TextBoxen addieren
A.Franz

Hallo..kann mir jemand helfen?
Ich habe in einer UserForm mit 10-TextBoxen und verschieden Zahlen wie z.B 10..23,90..121,17 usw.Weiterhin eine 11-TextBox in der ich die Summe aller Werte aus den 10-TextBoxen addiert haben möchte wenn ich z.B einen CommandButton drücke, oder die sich jedesma...
31.01.2009 23:41:28
Thread-ID: 1045790
3 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Steuerzeichen aus "leeren" ("") Zellen löschen
Christoph

Hallo zusammen,
ich habe ein Tabellenblatt mit jeder Menge (fast) leerer Zellen. Diese werden erzeugt, indem im vorhergehenden Blatt WENN-Funktionen a la
WENN(a1=b1;"x";"")
verwendet werden. Kummer macht mir dies zum Beispiel beim Sortieren und bei Abfragen ob die Zellen leer si...
25.06.2009 10:41:14
Thread-ID: 1084263
5 Beiträge
Währungszeichen aus Zelle holen
joerg

Hallo,
ich hab hier eine Liste mit Abrechnungen, in dieser Liste kommt gelegentlich eine Fremdwährung vor, also CHF, GBP, SEK, DKK, ...
Ich würde nun gern oben in der Liste ein Feld machen, in dem man dieses Währungskennzeichen eingeben kann, dann sollen die Werte in der Spalte, in die...
29.07.2009 09:54:29
Thread-ID: 1092130
10 Beiträge
Zahlen aus Zelle entfernen
Peter

Hallo,
ich muss 2 zellen miteinander vergleichen.
In Spalte AN:AN stehen Werte Bsp 312A706 dazu stehen in Spalte AO:AO 000030-002894-K03-12A-070-600
Jetzt muss geprüft werden ob das A aus AN mit dem A aus AO identisch ist. Wenn ja dann Gutaussage
siehe Bsp-Datei
https://www....
16.09.2009 20:34:31
Thread-ID: 1103353
10 Beiträge
Zahlen aus Textfeld ( 1, 2, 5) auslesen
Ingo

Hallo,
In einem Textfeld werden Zeilennummern eingegeben die durch
Komma oder Semikolon getrennt werdenn z.B. ("1, 4, 7").
Jetzt möchte ich jeweils die Zeile 1, 4, 7 makieren und diesen dann kopieren.
Wie könnte das gehen?
24.11.2009 18:57:37
Thread-ID: 1119793
9 Beiträge
Zählen bzw. Summe aus Text und/oder Zahlen
Detlev

Hallo Community
Bin ein Frischling hier und bitte auch gleich um Doppelhilfe.
Ich brauche zwei Formeln, um aus zwei bzw. drei unterschiedlichen Bedingungen ein Ergebnis zu erhalten.
zur 1 Formel:
Ich benötige die Anzahl von "XYZ" in Spalte C, nur wenn in Spalte A eine "1" steht...
21.01.2010 00:33:24
Thread-ID: 1131577
6 Beiträge
Limit von Zeichen in Zellen
Volker Croll
Hallo Karl-Heinz,in einer Zelle(!) koennen bis zu 32.000 Zeichen stehen.Du scheinst aber ein Problem mit dem Kopieren eines ganzen Blattes zu haben. Was genau klappt denn nicht?Gruss Volker
16.04.2002 11:43:44
Thread-ID: 113666
4 Beiträge
Ersetzen von Zeichen in Zellen in einer Spalte
Zeichen

hallo excel-vba-ler,
kann mir bitte jemand helfen:
ich habe einen bereich einer spalte, in der sich daten befinden, die mit ; getrennt sind. vor jedem ; und am beginn des zelleninhalts sollen nun zeichen stehen. diese sind immer dieselben, nämlich DI, DA und S
wie kann ich das lösen...
01.03.2010 10:43:21
Thread-ID: 1142303
11 Beiträge
Anzeige
Zeichenfolgen aus Zellen suchen und übertragen
Sven

Hallo Leute,
ich mal wieder... :-P
Suche eine Lösung, wie Verantwortliche aus einem Tabellenblatt in ein Anderes Kopiert weren, indem die Zeichenfolgen der Themen verglichen werden....
In meiner Datei gibt es ein Tabellenblatt "Eingabe Agenda", eines "Eingabe Ansprechpartner" (Pro...
22.03.2010 17:15:03
Thread-ID: 1147574
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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