Thema Datum  Von Nutzer Rating
Antwort
06.12.2016 10:00:46 Anna-Lena
NotSolved
06.12.2016 10:55:11 Gisela
NotSolved
08.12.2016 08:19:49 GraFri
NotSolved
12.12.2016 15:12:58 Anna-Lena
NotSolved
12.12.2016 16:11:15 GraFri
NotSolved
12.12.2016 16:40:13 Anna-Lena
NotSolved
Rot Schleife VBA mit Inhalt
 13.12.2016 06:42:22 Gast76137
NotSolved
13.12.2016 09:19:35 Anna-Lena
NotSolved
14.12.2016 06:23:20 GraFri
NotSolved
14.12.2016 10:04:32 Anna-Lena
NotSolved

Ansicht des Beitrags:
Von:
Gast76137		 Datum:
13.12.2016 06:42:22		 Views:
658		 Rating:
     
Antwort:
  Ja
Thema:
Schleife VBA mit Inhalt

Hallo

Hab ich vorher falsch verstanden. Jetzt wird nur was angezeigt, wenn ein 'P' vorkommt. Fehlermeldung dürfte auch nicht mehr kommen.

 

Sub SpalteDurchlaufen()
Dim Zelle As Range
Dim Trennzeichen As String
Dim TMP As String

' kann man verändern
Trennzeichen = ", "

' wenn ein 'P' vorkommt
For Each Zelle In Range("K10:Y10")
    If Zelle.Value = "P" Then
        TMP = TMP & Zelle.Offset(-1, 0).Value & Trennzeichen  ' mit Trennzeichen nur dazwischen
    End If
Next

If Len(TMP) > 0 Then
    Range("B10") = Left$(TMP, Len(TMP) - Len(Trennzeichen))   ' mit Trennzeichen nur dazwischen
Else
    Range("B10") = vbNullString
End If

End Sub

 

mfg, GraFri

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
06.12.2016 10:00:46 Anna-Lena
NotSolved
06.12.2016 10:55:11 Gisela
NotSolved
08.12.2016 08:19:49 GraFri
NotSolved
12.12.2016 15:12:58 Anna-Lena
NotSolved
12.12.2016 16:11:15 GraFri
NotSolved
12.12.2016 16:40:13 Anna-Lena
NotSolved
Rot Schleife VBA mit Inhalt
 13.12.2016 06:42:22 Gast76137
NotSolved
13.12.2016 09:19:35 Anna-Lena
NotSolved
14.12.2016 06:23:20 GraFri
NotSolved
14.12.2016 10:04:32 Anna-Lena
NotSolved