|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
27.01.2023 14:59:01 |
Merve |
|
|
|
27.01.2023 18:07:54 |
ralf_b |
|
|
|
27.01.2023 19:07:56 |
Merve |
|
|
|
27.01.2023 19:15:30 |
ralf_b |
|
|
|
27.01.2023 19:33:42 |
Merve |
|
|
|
27.01.2023 20:46:27 |
ralf_b |
|
|
|
28.01.2023 10:46:30 |
xlKing |
|
|
|
28.01.2023 21:52:20 |
xlKing |
|
|
 Zeile automatisch erweitern/einfügen |
31.01.2023 13:28:19 |
Merve |
|
|
|
28.01.2023 13:19:41 |
Merve |
|
|
Von:
Merve |
Datum:
31.01.2023 13:28:19 |
Views:
1278 |
Rating:
|
Antwort:
|
Thema:
Zeile automatisch erweitern/einfügen |
|
Hallo nochmal,
ich bin schon mal etwas weiter gekommen danke dafür. Mit dem Code (siehe unten) funktioniert das ziemlich gut, das ich Mehrfachauswahl bekomme in einer Zelle was untereinander aufgelistet wird. Somit brauche ich auch nicht neue Zeile hinzufügen.
Wir kann ich den Code so erweitern, dass es z.B bei der Zeile 8 das gleiche mit einer andere Liste funktioniert.
So klappt es nämlich nur mit einer DropDown Liste.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim wert_old As String
Dim wertnew As String
'** Errorhandling
On Error GoTo Errorhandling
'** Mehrfachauswahl im definierten Bereich (Bsp. B6) durchführen
If Not Application.Intersect(Target, Range("B6")) Is Nothing Then
'**Range definieren
Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
If rngDV Is Nothing Then GoTo Errorhandling
'** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen
If Not Application.Intersect(Target, rngDV) Is Nothing Then
Application.EnableEvents = False
wertnew = Target.Value
Application.Undo
wertold = Target.Value
Target.Value = wertnew
If wertold <> "" Then
If wertnew <> "" Then
Target.Value = wertold & wertnew
Cells(6, 2) = wertold & vbLf & wertnew
Rows("1A:10C").AutoFit
End If
End If
End If
Application.EnableEvents = True
End If
Errorhandling:
Application.EnableEvents = True
End Sub
|
- 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
|
|
27.01.2023 14:59:01 |
Merve |
|
|
|
27.01.2023 18:07:54 |
ralf_b |
|
|
|
27.01.2023 19:07:56 |
Merve |
|
|
|
27.01.2023 19:15:30 |
ralf_b |
|
|
|
27.01.2023 19:33:42 |
Merve |
|
|
|
27.01.2023 20:46:27 |
ralf_b |
|
|
|
28.01.2023 10:46:30 |
xlKing |
|
|
|
28.01.2023 21:52:20 |
xlKing |
|
|
Zeile automatisch erweitern/einfügen |
31.01.2023 13:28:19 |
Merve |
|
|
|
28.01.2023 13:19:41 |
Merve |
|
|