Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1256to1260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA - mehrere Spalten ansprechen

VBA - mehrere Spalten ansprechen
WalterK
Hallo,
bei folgendem Codeteil sollte ich wissen, was ich bei der Zeile

Range("D" & i).Clear
ändern muss, wenn ich die Clear-Anweisung für D:G benötige.

For i = 16 To LeZeiMinAB
If Range("A" & i) = "" Or Range("B" & i) = "" Then
Range("D" & i).Clear
End If
Next i

Besten Dank für die Hilfe und Servus, Walter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA - mehrere Spalten ansprechen
15.04.2012 21:57:25
Josef

Hallo Walter,
For i = 16 To LeZeiMinAB
  If Range("A" & i) = "" Or Range("B" & i) = "" Then
    Range("D" & i).Resize(1, 4).Clear
  End If
Next i

'oder
For i = 16 To LeZeiMinAB
  If Cells(i, 1) = "" Or Cells(i, 2) = "" Then
    Cells(i, 4).Resize(1, 4).Clear
  End If
Next i

'oder
For i = 16 To LeZeiMinAB
  If Application.couta(Range(Cells(i, 1), Cells(i, 2))) < 2 Then
    Range(Cells(i, 4), Cells(i, 7)).Clear
  End If
Next i


« Gruß Sepp »

Anzeige
@Sepp: kaufe ein n
15.04.2012 22:06:33
Uduuh
Hallo Sepp,
For i = 16 To LeZeiMinAB
If Application.CountA(Range(Cells(i, 1), Cells(i, 2))) 

;-)
Gruß aus'm Pott
Udo
AW: VBA - mehrere Spalten ansprechen
15.04.2012 22:01:12
Uduuh
Hallo,
Range("D" & i).Resize(, 4).Clear
Ich würde aber Cells nehmen. Ist prinzipiell schneller.
        For i = 16 To LeZeiMinAB
If Cells(i, 1) = "" Or Cells(i, 2) = "" Then
Cells(i, 4).Resize(, 4).Clear
End If
Next i

Gruß aus’m Pott
Udo

Danke Euch beiden, passt! Servus, Walter
15.04.2012 22:08:39
WalterK

341 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige