Thema Datum  Von Nutzer Rating
Antwort
10.12.2011 18:24:30 Kelloggz
NotSolved
Blau Strings suchen und hintereinanderschreiben
 10.12.2011 19:37:49 Till
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
10.12.2011 19:37:49		 Views:
805		 Rating:
     
Antwort:
  Ja
Thema:
Strings suchen und hintereinanderschreiben		 
Option Explicit

Private Sub datenZusammenfassen()
Dim V, R&, str$, tSh As Worksheet

    Set tSh = Sheets(1)
    With tSh
        V = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)).Value
    End With
    
    For R = 1 To UBound(V) - 1
        If V(R, 1) Like "ABC*" Or V(R, 1) Like "DEF*" Then
            If str = "" Then
                str = V(R, 1)
            Else
                str = str & ";" & V(R, 1)
            End If
        End If
    Next
    tSh.Cells(1, 2) = str
    
End Sub

Scheint mir zwar nicht sehr sinnvoll das in einer Zelle zu schreiben, würde ich eher in eine Spalte schreiben, sollte aber problemlos funktionieren. Musst nur das Tabellenblatt festlegen. Die Daten werden in die Zelle "B1" des gleichen Tabellenblattes geschrieben.

 

Gruß

Till

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.12.2011 18:24:30 Kelloggz
NotSolved
Blau Strings suchen und hintereinanderschreiben
 10.12.2011 19:37:49 Till
NotSolved