Thema Datum  Von Nutzer Rating
Antwort
Rot Löschen bestimmter Zellen
 08.11.2012 10:15:17 Versuch
*****
NotSolved
21.11.2012 10:00:41 Lutz
NotSolved

Ansicht des Beitrags:
Von:
Versuch		 Datum:
08.11.2012 10:15:17		 Views:
2835		 Rating:
     
Antwort:
  Ja
Thema:
Löschen bestimmter Zellen

Hallo zusammen,

 

folgendes Problem:

 

Ich möchte, wenn in der Spalte G der Text "*Flotte" steht, dass in dieser Zeile einige Zellen gelöscht werden.

Mein Versuch:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub Löschen_der_Zeile()
 
Dim c As Range
Dim Bereich As Range
 
Dim ZeileMax As Long
ZeileMax = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
 
Set Bereich = Range("A1:GJ" & ZeileMax)
 
  
For Each Cell In Bereich
 
 
Select Case Cell.Text
 
  
 
    Case "*FLOTTE"
 
    With ActiveSheet.Range("G1:G" & ZeileMax)
      Set c = .Find("*FLOTTE")
 
      If Not c Is Nothing Then
 
      .Rows(c.Row).EntireRow.Cells(1).ClearContents
      .Rows(c.Row).EntireRow.Cells(9).ClearContents
      .Rows(c.Row).EntireRow.Cells(10).ClearContents
      .Rows(c.Row).EntireRow.Cells(11).ClearContents
      .Rows(c.Row).EntireRow.Cells(12).ClearContents
      .Rows(c.Row).EntireRow.Cells(13).ClearContents
      .Rows(c.Row).EntireRow.Cells(14).ClearContents
      .Rows(c.Row).EntireRow.Cells(15).ClearContents
      .Rows(c.Row).EntireRow.Cells(19).ClearContents
      .Rows(c.Row).EntireRow.Cells(20).ClearContents
      .Rows(c.Row).EntireRow.Cells(21).ClearContents
      .Rows(c.Row).EntireRow.Cells(22).ClearContents
      .Rows(c.Row).EntireRow.Cells(23).ClearContents
      .Rows(c.Row).EntireRow.Cells(24).ClearContents
      .Rows(c.Row).EntireRow.Cells(25).ClearContents
      .Rows(c.Row).EntireRow.Cells(26).ClearContents
      .Rows(c.Row).EntireRow.Cells(27).ClearContents
      .Rows(c.Row).EntireRow.Cells(189).ClearContents
      .Rows(c.Row).EntireRow.Cells(190).ClearContents
      .Rows(c.Row).EntireRow.Cells(191).ClearContents
      .Rows(c.Row).EntireRow.Cells(192).ClearContents
 
      End If
 
      End With
      
      
End Select
 
Next
 
End Sub

 

Wo liegt der Fehler?

Es wird immer nur für den ersten Treffer durchgeführt.

Vielen Dank im Voraus.

Ich verzweifele langsam.

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Löschen bestimmter Zellen
 08.11.2012 10:15:17 Versuch
*****
NotSolved
21.11.2012 10:00:41 Lutz
NotSolved