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
13.12.2016 06:42:22 Gast76137
NotSolved
13.12.2016 09:19:35 Anna-Lena
NotSolved
Rot Schleife VBA mit Inhalt
 14.12.2016 06:23:20 GraFri
NotSolved
14.12.2016 10:04:32 Anna-Lena
NotSolved

Ansicht des Beitrags:
Von:
GraFri		 Datum:
14.12.2016 06:23:20		 Views:
933		 Rating:
     
Antwort:
  Ja
Thema:
Schleife VBA mit Inhalt

Hallo Anna-Lena

Grundsätzlich würde ich kein Formularsteuerelement  sondern ein ActiveX Steuerelement verwenden (z.B. Listbox oder Combobox).

 

Geht aber mit einem DropDown auch. Rechtsklick auf das DropDown und das Makro zuweisen.

 

Sub SpalteDurchlaufen_E_P()
Dim Zelle As Range
Dim Trennzeichen As String
Dim Tmp1 As String
Dim Tmp2 As String

' kann man verändern
Trennzeichen = ", "

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


' Eintragung für 'E'
If Len(Tmp1) > 0 Then
    Range("B12") = Left$(Tmp1, Len(Tmp1) - Len(Trennzeichen))   ' mit Trennzeichen nur dazwischen
Else
    Range("B12") = vbNullString
End If
' Eintragung für 'P'
If Len(Tmp2) > 0 Then
    Range("B10") = Left$(Tmp2, Len(Tmp2) - 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
13.12.2016 06:42:22 Gast76137
NotSolved
13.12.2016 09:19:35 Anna-Lena
NotSolved
Rot Schleife VBA mit Inhalt
 14.12.2016 06:23:20 GraFri
NotSolved
14.12.2016 10:04:32 Anna-Lena
NotSolved