Microsoft Excel

Herbers Excel/VBA-Archiv

Problem mit Inhalt löschen | Herbers Excel-Forum


Betrifft: Problem mit Inhalt löschen von: meik
Geschrieben am: 05.02.2012 14:27:32

Hallo Forum,

bin ganz neu hier.

Habe nur wenig VBA Kenntnisse.

Vielleicht kann mir trotzdem jemand helfen, habe nachfolgendes Makro, was den Inhalt einer Zeile enfernt.
Ich möchte aber gerne das nur bestimmte Spalteninhalte in dieser Zeile entfernt werden z.B. A:H oder die nächsten drei Spalten rechts von den Fundwert, ich hoffe ich konnte mich deutlich ausdrücken. Google schon ewig
habe aber keine Lösung gefunden.

Hier der Code:

Sub clear_range()

Dim i As Long

With ActiveSheet.UsedRange
  For i = .Rows.Count To 3 Step -1
    If .Cells(i, 8) = "DNS" Then
      Range(.Cells(R1, 2), .Cells(R1, 6)).ClearContents

    End If
    
    If .Cells(i, 8) = "DNF" Then
      .Cells(i, 8).EntireRow.ClearContents
    End If
    
    If .Cells(i, 8) = "DQ" Then
      .Cells(i, 8).EntireRow.ClearContents
    End If
    
  Next i
End With


End Sub

Bin dankbar für jede Hilfe

Gruß Meik

  

Betrifft: AW: Problem mit Inhalt löschen von: Hajo_Zi
Geschrieben am: 05.02.2012 14:35:53

Hallo Meik,
du prüfst doch schon den Zellinhalt, wo istz das Problem.

Sub clear_range()

Dim i As Long

With ActiveSheet.UsedRange
  For i = .Rows.Count To 3 Step -1
    If .Cells(i, 8) = "DNS" Then
      Range(.Cells(R1, 2), .Cells(R1, 6)).ClearContents

    ElseIf .Cells(i, 8) = "DNF" Then
      .Cells(i, 8).EntireRow.ClearContents
    ElseIf .Cells(i, 8) = "DQ" Then
      .Cells(i, 8).EntireRow.ClearContents
    End If
  Next i
End With
GrußformelHomepage


  

Betrifft: AW: Problem mit Inhalt löschen von: meik
Geschrieben am: 05.02.2012 14:40:24

Hallo Hajo,

danke für Deine Antwort.

Prüfen tue ich, es löscht auch den Inhalt der ganzen Zeile, allerdings
möchte ich gerne erreichen, dass der Inhalt der gefundenen Zeilen nur
in den Spalten z.B. A-H entfernt wird und nicht in der ganzen Zeile entfernt wird.

Ich hoffe Du verstehst was ich meine.

Danke für Deine Hilfe.

Gruß Meik


  

Betrifft: AW: Problem mit Inhalt löschen von: Hajo_Zi
Geschrieben am: 05.02.2012 14:46:02

Hallo Meik,

vielleicht so

Option Explicit

Sub clear_range()
    Dim i As Long
    With ActiveSheet
        For i = .UsedRange.Rows.Count To 3 Step -1
            If .Cells(i, 8) = "DNS" Then
                Range(.Cells(i, 1), .Cells(i, 8)).ClearContents
            ElseIf .Cells(i, 8) = "DNF" Then
                .Cells(i, 8).EntireRow.ClearContents
            ElseIf .Cells(i, 8) = "DQ" Then
                .Cells(i, 8).EntireRow.ClearContents
            End If
        Next i
    End With
End Sub
Gruß Hajo


  

Betrifft: AW: Problem mit Inhalt löschen von: meik
Geschrieben am: 05.02.2012 14:52:05

Hallo Hajo,

vielen, vielen Dank, das funktioniert, Du hast mie sehr geholfen,
schlage mich mit dieser Geschichte schon ein paar Tage rum.

Super-Forum

Danke

Gruß Meik


  

Betrifft: AW: Problem mit Inhalt löschen von: Hajo_Zi
Geschrieben am: 05.02.2012 14:58:08

Hallo Meik,

ich habe es schon von vielen Leuten gelesen die Programme schreiben, das Sie eingestellt haben unter Extra, Optionen Variablendefinition erforderlich. Dann wäre Dir auzfgefallen das eine Variable Falsch oder nicht definiert ist. Aber es ist mir schon öffters aufgefallen, das Laien dies nicht brauchen, aus welchem Grunde auch immer.

Gruß Hajo


  

Betrifft: AW: Problem mit Inhalt löschen von: meik
Geschrieben am: 05.02.2012 15:04:19

Hallo Hajo,

bei der Variablendeklaration, ist bei mir kein Haken drin, aber meine VBA Kenntnisse sind nicht so gut, deshalb
kam ich damit nicht weiter.

Danke

Gruß meik


  

Betrifft: AW: Problem mit Inhalt löschen von: Hajo_Zi
Geschrieben am: 05.02.2012 15:07:59

Hallo Meik,

das ist ja das was ich geschrieben habe. Die Laien brauchen das nicht, die die Programme schreiben haben das meist drin. Dann müssen sie sich aber nicht wundern, wenn mkaros nicht richtig laufen. Dann legt Excel nicht definierte Variablen fest.

Gruß Hajo


  

Betrifft: AW: Problem mit Inhalt löschen von: meik
Geschrieben am: 05.02.2012 15:10:13

Hallo Heijo,

hab Haken jetzt rein gemacht.

Danke

Gruß Meik


  

Betrifft: AW: Problem mit Inhalt löschen von: Hajo_Zi
Geschrieben am: 05.02.2012 15:12:30

Hallo Meik,

jetzt wundere Dich aber nicht, das in neuen Modulen gleich als erste Zeile Option Explicit steht. Das ist das Zeichen, das Variablen vor der ersten Verwendung definiert werden müssen.

Gruß Hajo


  

Betrifft: AW: Problem mit Inhalt löschen von: meik
Geschrieben am: 05.02.2012 15:13:35

OK

Danke


Beiträge aus den Excel-Beispielen zum Thema "Problem mit Inhalt löschen"