Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.12.2016 10:00:46 |
Anna-Lena |
|
|
|
06.12.2016 10:55:11 |
Gisela |
|
|
|
08.12.2016 08:19:49 |
GraFri |
|
|
|
12.12.2016 15:12:58 |
Anna-Lena |
|
|
|
12.12.2016 16:11:15 |
GraFri |
|
|
|
12.12.2016 16:40:13 |
Anna-Lena |
|
|
|
13.12.2016 06:42:22 |
Gast76137 |
|
|
|
13.12.2016 09:19:35 |
Anna-Lena |
|
|
Schleife VBA mit Inhalt |
14.12.2016 06:23:20 |
GraFri |
|
|
|
14.12.2016 10:04:32 |
Anna-Lena |
|
|
Von:
GraFri |
Datum:
14.12.2016 06:23:20 |
Views:
660 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
06.12.2016 10:55:11 |
Gisela |
|
|
|
08.12.2016 08:19:49 |
GraFri |
|
|
|
12.12.2016 15:12:58 |
Anna-Lena |
|
|
|
12.12.2016 16:11:15 |
GraFri |
|
|
|
12.12.2016 16:40:13 |
Anna-Lena |
|
|
|
13.12.2016 06:42:22 |
Gast76137 |
|
|
|
13.12.2016 09:19:35 |
Anna-Lena |
|
|
Schleife VBA mit Inhalt |
14.12.2016 06:23:20 |
GraFri |
|
|
|
14.12.2016 10:04:32 |
Anna-Lena |
|
|