Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zellen Inhalt aufteilen
zurück: sichtbare Zellen in Array - Array in sichtbare Zellen weiter: Excel VBA Druckbereich festlegen anhand eines Wertes Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
vukadonis
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Apr 2014, 02:15
Rufname:

Zellen Inhalt aufteilen - Zellen Inhalt aufteilen

Nach oben
       Version: Office 2007

Hallo,
ich habe in einer Zelle solche Werte "3:1 (2:1)". Es sind Fussball-Ergebnisse und in einer Spalte von 1 bis 400 eingetragen.
Ich möchte den Inhalt der Spalte aufteilen,und zwar in zwei neue Spalten und nur das Endergebniss,Halbzeitergebn. (in den Klammern) wird nicht gebraucht.
zb. Spalte F 3:1 (2:1) Spalte G 3 Spalte H 1

oder
Spalte F 10:1 (6:0) Spalte G 10 Spalte H 1
Spalte F 1: 13 (0:2) Spalte G 1 Spalte H 13

und bei den Spielen die noch nicht gespielt worden sind steht das hier -:-
da soll es dann beendet werden bzw. als leer, also gar kein Wert bzw. keine Aufteilung statt finden.

For lngZeile = 1 To tmax
Cells(lngZeile, 6) = ????
Cells(lngZeile, 7) = ????
Next lngZeile

Wie mache ich das am besten?
Danke schon mal.
werni
Solala


Verfasst am:
11. Apr 2014, 04:57
Rufname: werni
Wohnort: Ennenda GL


AW: Zellen Inhalt aufteilen - AW: Zellen Inhalt aufteilen

Nach oben
       Version: Office 2007

Hallo

Erstmal ......
Zitat:
Cells(lngZeile, 6) = ????
Cells(lngZeile, 7) = ????

ist Spalte F = 6, Spalte G = 7, Spalte H = 8

Dein Code wäre demnach
Code:
Option Explicit

Sub Aufteilen()
    Dim lngZeile As Integer, tmax As Integer
    Dim xString As String, Teiler As Integer
    tmax = 400
        For lngZeile = 1 To tmax
            xString = Cells(lngZeile, 6)
        If Left(xString, 1) = "-" Then Exit Sub
            Teiler = InStr(1, xString, ":")
                Cells(lngZeile, 7) = Left(Cells(lngZeile, 6), Teiler - 1)
                Cells(lngZeile, 8) = Right(Cells(lngZeile, 6), Len(xString) - Teiler)
        Next
End Sub

Gruss werni

_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN
Gast



Verfasst am:
11. Apr 2014, 10:14
Rufname:

AW: Zellen Inhalt aufteilen - AW: Zellen Inhalt aufteilen

Nach oben
       Version: Office 2007

Hallo Werni,
Danke erstmal für deine Hilfe.

Leider klappt es hiermit nicht:
Cells(lngZeile, 8) = Right(Cells(lngZeile, 6), Len(xString) - Teiler)
er schreibt mir den kompletten Inhalt Rechts von :
also im erstem Beispiel 3:1 (2:1) wird gesplittet in 1 (2:1),
ich brauche aber nur den Wert bis zu dem Klammer oder aber von : nur die ersten zwei Zeichen.

Gruß
bst
Programmierer


Verfasst am:
11. Apr 2014, 10:48
Rufname: Bernd
Wohnort: Ilsfeld

AW: Zellen Inhalt aufteilen - AW: Zellen Inhalt aufteilen

Nach oben
       Version: Office 2007

Auch Hallo,

wenn da immer ein Leerzeichen dazwischen steht versuche vielleicht mal so etwas.

Erwartet die Ergebnisse in Spalte 6=F ab Zeile 2. Schreibt in die Spalten 7=G und 8=H.

HTH, Bernd
--
Code:
Option Explicit

Sub x()
   Dim i As Long, arTmp, ar
   
   For i = 2 To Cells(Rows.Count, 6).End(xlUp).Row
      arTmp = Split(Cells(i, 6).Value, " ")
      If UBound(arTmp) > 0 Then
         ar = Split(arTmp(0), ":")
         If UBound(ar) > 0 Then
            Cells(i, 7).Value = ar(0)
            Cells(i, 8).Value = ar(1)
         End If
      End If
   Next
End Sub
Gast



Verfasst am:
11. Apr 2014, 13:30
Rufname:


AW: Zellen Inhalt aufteilen - AW: Zellen Inhalt aufteilen

Nach oben
       Version: Office 2007

Vielen Dank Bernd,
Funkt. Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Zellen miteinander verlinken 2 holfloser Gast 1527 07. Feb 2005, 10:50
holfloser Gast Zellen miteinander verlinken
Keine neuen Beiträge Excel Formeln: zellen verbinden 1 Gast 1414 22. Jan 2005, 01:11
jochenj zellen verbinden
Keine neuen Beiträge Excel Formeln: Einzelne Zellen miteinander vergleichen. 8 breid 1726 14. Jan 2005, 17:54
breid Einzelne Zellen miteinander vergleichen.
Keine neuen Beiträge Excel Formeln: Worte aus einer Zelle in 2 Zellen schreiben 2 Sven79 1322 12. Jan 2005, 01:20
Sven79 Worte aus einer Zelle in 2 Zellen schreiben
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Bestimmten Zellen einen Wert zuteilen. 1 tomimmo 2544 03. Dez 2004, 20:35
ae Bestimmten Zellen einen Wert zuteilen.
Keine neuen Beiträge Excel Formeln: Vor- und Nachname in 1 Spalte in 2 Spalten aufteilen 2 Gast 2920 26. Nov 2004, 11:48
Gast Vor- und Nachname in 1 Spalte in 2 Spalten aufteilen
Keine neuen Beiträge Excel Formeln: rechnung aufteilen 6 carni 1287 14. Nov 2004, 14:49
carni rechnung aufteilen
Keine neuen Beiträge Excel Formeln: Zellen auswerten 4 Cat 1526 11. Nov 2004, 01:20
Gast Zellen auswerten
Keine neuen Beiträge Excel Formeln: Excel Zellen verknüpfen! 1 Gast 2858 10. Nov 2004, 10:41
Gast Excel Zellen verknüpfen!
Keine neuen Beiträge Excel Formeln: Blattschutz: bestimmte Zellen zum Löschen freigeben 6 Christiane 1203 21. Okt 2004, 07:17
lala Blattschutz: bestimmte Zellen zum Löschen freigeben
Keine neuen Beiträge Excel Formeln: Summe verschiedener Zellen mit Suchkreterium (sverweis) 3 Ralli 11135 13. Okt 2004, 23:12
ae Summe verschiedener Zellen mit  Suchkreterium (sverweis)
Keine neuen Beiträge Excel Formeln: Bestimmen einer Zellenposition durch ihren Inhalt 1 FMPO 1607 22. Sep 2004, 13:35
fl618 Bestimmen einer Zellenposition durch ihren Inhalt
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks