Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Ausleseproblem, aus Zellen bestimme Daten auslesen?
zurück: Per Makro Pivotabelle nach Aktuallisierung formatieren weiter: Hat wer nen Tipp? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
kc
Gast


Verfasst am:
21. Aug 2008, 08:47
Rufname:

Ausleseproblem, aus Zellen bestimme Daten auslesen? - Ausleseproblem, aus Zellen bestimme Daten auslesen?

Nach oben
       Version: Office 2003

ja nach dem was drinsteht die ersten Buchstaben kombinieren.

Ich hab hier ein PRogramm, welches folgendes in ein Feld eintraegt.

IF BHS 204 180 SI UL A89 ML

oder auch

IF BHS 204 180 IN GS S01 DL


Jetzt möcht ich gerne: die 180 in das feld-4 der gleichen Zeile eintragen (die 204 steht immer an der gleichen stelle). Und wenn SI und ML enthalten ist, soll ins Feld-2 -> (SM eingetragen werden) davon gibts 4 verschiedene Kombinationen (SM, SD, IM und ID) ML oder DL steht leider nicht immer an der gleichen stelle von vorne, aber es ist immer der letzte Eintrag). Kann man das irgendwie vereinfachen? Weil ich leider nich mehr viele Felder zur Verfügunge habe.

gruß KC
bst
Programmierer


Verfasst am:
21. Aug 2008, 09:52
Rufname: Bernd
Wohnort: Ilsfeld


AW: Ausleseproblem, aus Zellen bestimme Daten auslesen? - AW: Ausleseproblem, aus Zellen bestimme Daten auslesen?

Nach oben
       Version: Office 2003

Hi,

sowas?

cu, Bernd
--
Code:
Option Explicit

Sub x()
   Dim i As Long, strVal As String, ar As Variant
   
   For i = 1 To ActiveSheet.UsedRange.Rows.Count
      strVal = Cells(i, 1).Value
      ar = Split(strVal, " ")
      If UBound(ar) >= 3 Then Cells(i, 4) = ar(3)
      If strVal Like "*SI*" And strVal Like "*ML*" Then Cells(i, 2) = "SM"
   Next
End Sub
losgehts
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Aug 2008, 10:02
Rufname:

AW: Ausleseproblem, aus Zellen bestimme Daten auslesen? - AW: Ausleseproblem, aus Zellen bestimme Daten auslesen?

Nach oben
       Version: Office 2003

Hi KC!

Ich würde folgendes Problem:
ABCD
1IF BHS 204 180 SI UL A89 MLSM 180
2IF BHS 204 180 IN GS S01 DL 180


so lösen:
Code:
Sub auslesen()
Dim i As Long
Dim StrTmp As String
With ActiveSheet
   For i = 1 To 2
      StrTmp = .Cells(i, 1).Value
      .Cells(i, 4).Value = Split(StrTmp, " ")(3)
      If InStr(StrTmp, "SI") > 0 And InStr(StrTmp, "ML") > 0 Then
         .Cells(i, 2).Value = "SM"
      End If
   Next
End With
End Sub


Grüße, Ulrich

[edit: sehe gerade den Code von Bernd, er ist besser, da er noch abfrägt, ob das Datenfeld überhaupt existiert, nimm seinen Wink]

_________________
Ich freue mich über jede Art von Feedback
kc
Gast


Verfasst am:
21. Aug 2008, 11:56
Rufname:

AW: Ausleseproblem, aus Zellen bestimme Daten auslesen? - AW: Ausleseproblem, aus Zellen bestimme Daten auslesen?

Nach oben
       Version: Office 2003

Hallo,

ich habs grade probiert. Es funktioniert super ABER;

wenn ich danach mit elfeif weitermache um die anderen 3 fälle abzudecken, gibts irgendwelche Probleme die wohl was mit zählvar zu tun haben.

Option Explicit

Sub x()

Dim y As Long, strVal As String

y = 1

For y = 1 To ActiveSheet.UsedRange.Rows.Count
strVal = Cells(y, 8).Value

If strVal Like "*SI*" And strVal Like "*ML*" Then
Cells(y, 4) = "SM" 'wenn SI & ML dann SM

ElseIf strVal Like "*SI*" And strVal Like "*DL*" Then Cells(y, 4) = "SD"
'wenn SI & DL dann SD


ElseIf strVal Like "*IN*" And strVal Like "*DL*" Then Cells(y, 4) = "ID"
'wenn IN & DL dann ID

ElseIf strVal Like "*IN*" And strVal Like "*ML*" Then Cells(y, 4) = "IM"
'wenn IN & ML dann IM

End If



Next
End Sub


Er fuehrt mein sub nur korrekt aus, wenn ich den inhalt des auszulesenden objekt in eine andere Zeile schreibe?

Mit dem Auslesen der 108 hab ich was anderes gefunden. Aber irgendwie steige ich nich ganz hinter das problem, welches ich mit else if entstehen lassen hab.

Das ging gar nicht mehr, bis ich y=1 oben gesetzt hab. Dann hat es genau einmal in der richtigen Zeile funktioniert.


gruß KC
kc
Gast


Verfasst am:
21. Aug 2008, 11:57
Rufname:


AW: Ausleseproblem, aus Zellen bestimme Daten auslesen? - AW: Ausleseproblem, aus Zellen bestimme Daten auslesen?

Nach oben
       Version: Office 2003

mit ner case select sache bin ich total gegen die wand gelaufen Sad
bst
Programmierer


Verfasst am:
21. Aug 2008, 12:01
Rufname: Bernd
Wohnort: Ilsfeld

AW: Ausleseproblem, aus Zellen bestimme Daten auslesen? - AW: Ausleseproblem, aus Zellen bestimme Daten auslesen?

Nach oben
       Version: Office 2003

Hi,

falsche Syntax.

HTH, Bernd
--
Code:
Option Explicit

Sub x()
   Dim y As Long, strVal As String
   
   For y = 1 To ActiveSheet.UsedRange.Rows.Count
      strVal = Cells(y, 8).Value
      If strVal Like "*SI*" And strVal Like "*ML*" Then
         Cells(y, 4) = "SM"
      ElseIf strVal Like "*SI*" And strVal Like "*DL*" Then
         Cells(y, 4) = "SD"
      ElseIf strVal Like "*IN*" And strVal Like "*DL*" Then
         Cells(y, 4) = "ID"
      ElseIf strVal Like "*IN*" And strVal Like "*ML*" Then
         Cells(y, 4) = "IM"
      End If
   Next
End Sub
bst
Programmierer


Verfasst am:
21. Aug 2008, 12:06
Rufname: Bernd
Wohnort: Ilsfeld

AW: Ausleseproblem, aus Zellen bestimme Daten auslesen? - AW: Ausleseproblem, aus Zellen bestimme Daten auslesen?

Nach oben
       Version: Office 2003

Hi,

Zitat:
mit ner case select sache bin ich total gegen die wand gelaufen


Du hast hier keinen Testausdruck den Du hinter Select Case schreiben könntest.

M.E. funktioniert deshalb nur sowas mit Select Case True.

cu, Bernd
--
Code:
Option Explicit

Sub x()
   Dim y As Long, strVal As String
   
   For y = 1 To ActiveSheet.UsedRange.Rows.Count
      strVal = Cells(y, 8).Value
      Select Case True
         Case strVal Like "*SI*" And strVal Like "*ML*"
            Cells(y, 4) = "SM"
         Case strVal Like "*SI*" And strVal Like "*DL*"
            Cells(y, 4) = "SD"
         Case strVal Like "*IN*" And strVal Like "*DL*"
            Cells(y, 4) = "ID"
         Case strVal Like "*IN*" And strVal Like "*ML*"
            Cells(y, 4) = "IM"
      End Select
   Next
End Sub
kc
Gast


Verfasst am:
21. Aug 2008, 12:49
Rufname:

AW: Ausleseproblem, aus Zellen bestimme Daten auslesen? - AW: Ausleseproblem, aus Zellen bestimme Daten auslesen?

Nach oben
       Version: Office 2003

sind kommentare verboten?
bst
Programmierer


Verfasst am:
21. Aug 2008, 13:00
Rufname: Bernd
Wohnort: Ilsfeld


AW: Ausleseproblem, aus Zellen bestimme Daten auslesen? - AW: Ausleseproblem, aus Zellen bestimme Daten auslesen?

Nach oben
       Version: Office 2003

Hi,

ganz im Gegenteil, ich war nur zu faul sie an die richtige Stelle zu verschieben.

cu, Bernd
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: Formel nur auf gefilterte Daten anwenden 3 Dönsen 3080 05. März 2013, 17:12
Bienchen13245 Formel nur auf gefilterte Daten anwenden
Keine neuen Beiträge Excel Formeln: Nur zellen einer bestimmten farbe anzeigen 4 Dave 2619 08. Nov 2011, 18:39
Luc/ius Nur zellen einer bestimmten farbe anzeigen
Keine neuen Beiträge Excel Formeln: Werte in Zellen?!? 3 Kiamolo 2818 18. Okt 2004, 10:01
Kiamolo Werte in Zellen?!?
Keine neuen Beiträge Excel Formeln: Daten/Tabelle tabellenübergreifend 0 markus.wilke 6170 15. Okt 2004, 16:45
markus.wilke Daten/Tabelle tabellenübergreifend
Keine neuen Beiträge Excel Formeln: verknüpfung verschiedener zellen in verschiedenen tabellen 4 urlachs 3695 23. Sep 2004, 22:43
urlachs verknüpfung verschiedener zellen in verschiedenen tabellen
Keine neuen Beiträge Excel Formeln: Wochentag einfügen / Daten übernehmen nach Datum 4 muttalip 3003 22. Sep 2004, 18:20
muttalip Wochentag einfügen / Daten übernehmen nach Datum
Keine neuen Beiträge Excel Formeln: Nichtleere Zellen zählen 2 Gast 2690 21. Sep 2004, 10:37
Gast Nichtleere Zellen zählen
Keine neuen Beiträge Excel Formeln: In Zellen nach mehreren 'Strings' suchen... 4 Schmalhans 2373 16. Sep 2004, 12:45
Schmalhans In Zellen nach mehreren 'Strings' suchen...
Keine neuen Beiträge Excel Formeln: Daten aus einer Spalte in eine Zeile bringen 8 Hobbitz 2695 26. Aug 2004, 19:49
Arnim Daten aus einer Spalte in eine Zeile bringen
Keine neuen Beiträge Excel Formeln: Prüfung, ob in bestimmten Zellen Daten eingetragen wurden 2 AlPa 2490 12. Aug 2004, 15:59
lala Prüfung, ob in bestimmten Zellen Daten eingetragen wurden
Keine neuen Beiträge Excel Formeln: Daten aus div. Tabellen in einer Spalte... 11 achimtausa 1977 09. Aug 2004, 11:33
Arnim Daten aus div. Tabellen in einer Spalte...
Keine neuen Beiträge Excel Formeln: Verknüpfung v Zellen 5 grelle 1465 19. Jul 2004, 14:09
grelle Verknüpfung v Zellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum