Thema Datum  Von Nutzer Rating
Antwort
Rot Zelleninhalte links und rechts löschen wenn...
21.02.2021 18:05:15 Richard
Solved
21.02.2021 18:15:29 Werner
NotSolved
21.02.2021 18:22:25 Gast22335
NotSolved
21.02.2021 18:55:45 Werner
NotSolved
21.02.2021 18:51:31 Richard
NotSolved
21.02.2021 19:00:06 Werner
NotSolved
21.02.2021 19:07:44 Richard
NotSolved

Ansicht des Beitrags:
Von:
Richard
Datum:
21.02.2021 18:05:15
Views:
931
Rating: Antwort:
 Nein
Thema:
Zelleninhalte links und rechts löschen wenn...

Hallo.

Ich bin VBA-Anfänger und habe das folgende Problem.

Mein Makro soll in einem bestimmten Bereich zum Beispiel den Wert 1000 suchen, und dann diesen Zelleninhalt löchen.

Zudem sollen aber die Zelleninhalte links und rechts davon ebenfalls gelöscht werden. Und dieses bekomme ich leider nicht hin.

Bis jetzt sieht es bei mir so aus:
 

Sub aufraumen()

'

' aufraumen Makro

'

Dim rngZelle As Range

For Each rngZelle In ActiveSheet.Range("A1:H55")

If InStr(1, rngZelle.Text, "1000", 1) Then

rngZelle.ClearContents

End If

Next

'

End Sub

 

Vielen Dank für Eure Hilfe.

 


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
Rot Zelleninhalte links und rechts löschen wenn...
21.02.2021 18:05:15 Richard
Solved
21.02.2021 18:15:29 Werner
NotSolved
21.02.2021 18:22:25 Gast22335
NotSolved
21.02.2021 18:55:45 Werner
NotSolved
21.02.2021 18:51:31 Richard
NotSolved
21.02.2021 19:00:06 Werner
NotSolved
21.02.2021 19:07:44 Richard
NotSolved