|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.11.2024 14:04:00 |
Magda |
|
|
 Zeile mit Formatierung und Formeln kopieren und einfügen. |
25.11.2024 17:19:18 |
Magda |
|
|
|
25.11.2024 18:09:25 |
ralf_b |
|
|
|
25.11.2024 18:43:06 |
Magda |
|
|
|
25.11.2024 22:00:34 |
ralf_b |
|
|
|
25.11.2024 22:35:10 |
Magda |
|
|
Von:
Magda |
Datum:
25.11.2024 17:19:18 |
Views:
58 |
Rating:
|
Antwort:
|
Thema:
Zeile mit Formatierung und Formeln kopieren und einfügen. |
|
Hallo
Habe jetzt seit längerem probieren folgenden Code aus einem Beitrag vonn 2019 anpassen können.
Funktioniert so wie ich es brauche mit einer kleinen Einschränkung der Code reagiert nur auf die erste leere Zelle in Spalte A, da der Eintrag in A aber oft erst später eingefügt wird als der der Wert in Spalte B oder umgekhert müsste der Code so angepasst werden, das er funktioniert wenn in A oder B
geklickt wird.
Also Code soll nur funktionieren wenn beide Zellen A und B leer sind und man dann in A oder B klickt
Hier der bisherige Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range
With Target
If .Column = 1 Then
If .Count = 1 Then
If .Row = Cells(Rows.Count, 1).End(xlUp).Row + 1 Then
Rows(.Row - 1).Copy Target
For Each C In Range("A" & .Row, "AP" & .Row) 'bei Bedarf erweitern
If Not C.HasFormula Then
C.ClearContents
End If
Next C
End If
End If
End If
End With
End Sub
Vielen Dank Magda
|
- 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
|
|
25.11.2024 14:04:00 |
Magda |
|
|
Zeile mit Formatierung und Formeln kopieren und einfügen. |
25.11.2024 17:19:18 |
Magda |
|
|
|
25.11.2024 18:09:25 |
ralf_b |
|
|
|
25.11.2024 18:43:06 |
Magda |
|
|
|
25.11.2024 22:00:34 |
ralf_b |
|
|
|
25.11.2024 22:35:10 |
Magda |
|
|