Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.05.2018 09:59:17 |
Siggi |
|
|
|
02.05.2018 13:17:00 |
Ulrich |
|
|
|
02.05.2018 14:38:05 |
Siggi |
|
|
|
02.05.2018 14:59:33 |
Siggi |
|
|
Zellen leeren wenn andere Zelle voll |
02.05.2018 15:45:49 |
Ulrich |
|
|
|
02.05.2018 15:49:45 |
Siggi |
|
|
Von:
Ulrich |
Datum:
02.05.2018 15:45:49 |
Views:
456 |
Rating:
|
Antwort:
|
Thema:
Zellen leeren wenn andere Zelle voll |
Hallo,
ich bin mir nicht ganz sicher, doch ich glaube du meinst so:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rArea As Range, rCell As Range, tmp As Variant
Dim rMonitor As Range, rTarget As Range
Application.EnableEvents = False
For Each rMonitor In Range("F7:H26,J7:L26").Areas
Set rTarget = Intersect(Target, rMonitor)
If Not rTarget Is Nothing Then
For Each rArea In rTarget.Areas
For Each rCell In rArea
If rCell.Value <> "" Then
tmp = rCell.Value
Intersect(rCell.EntireRow, rMonitor).ClearContents
rCell.Value = tmp
End If
Next
Next
End If
Next
Application.EnableEvents = True
End Sub
Es gibt natürlich auch viele andere Lösungsmöglichkeiten, die beiden Bereiche zu überwachen.
klappt's?
Grüße, Ulrich
|
- 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
|
|
02.05.2018 09:59:17 |
Siggi |
|
|
|
02.05.2018 13:17:00 |
Ulrich |
|
|
|
02.05.2018 14:38:05 |
Siggi |
|
|
|
02.05.2018 14:59:33 |
Siggi |
|
|
Zellen leeren wenn andere Zelle voll |
02.05.2018 15:45:49 |
Ulrich |
|
|
|
02.05.2018 15:49:45 |
Siggi |
|
|