Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1044to1048
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

Range nach Inhalt überprüfen

Range nach Inhalt überprüfen
30.01.2009 21:28:00
Roland
Hi,
wie kann ich denn eine kleine Schleife machen (Makro, keine Funktion), die folgendes prüft:
Wenn A12 und B12 und C12 leer, dann D12 = "Alles Voll"
Wenn A13 und B13 und C13 leer, dann D13 = "Alles Voll"
:
:
Die schleife soll von Zeile 12, bis 22 prüfen, dann stoppen.
Wie geht das ?
Danke
Roland

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
So!
30.01.2009 21:36:00
Backowe
Hallo Roland,
VBA-Code:
Sub Schleife()
Dim i%
For i = 12 To 22
  If Application.CountBlank(Range("A" & i & ":C" & i)) = 0 Then _
    Range("D" & i) = "Alles voll"
Next
End Sub
Gruß Jürgen
AW: So!
Roland

Hi Jürgen,
muss ich da noch das entsprechende Sheet mit angeben, funktioniert so nicht. Das Sheet heisst "Eingang"
Ist in dem Moment des Aufrufs nicht aktiv.
Gruss
Roland
Das Sheet muß nicht aktiv sein!
Backowe

Hi Roland,
VBA-Code:
Sub Schleife()
Dim i%
With Sheets("Eingang")
  For i = 12 To 22
    If Application.CountBlank(.Range("A" & i & ":C" & i)) = 0 Then _
      .Range("D" & i) = "Alles voll"
  Next
End With
End Sub
Gruß Jürgen
Danke, geht oT
Roland

AW: Range nach Inhalt überprüfen
Daniel

Hi
wozu schleife?

with range("D12:D22")
.FormulaR1C1 = "=IF(COUNTA(RC[-3]:RC[-1])=3),""Alles Voll"","""")
.formula = .value
end with


gruß, Daniel

Danke dir auch oT
Roland

Anzeige
AW: So!
30.01.2009 21:50:32
Roland
Hi Jürgen,
muss ich da noch das entsprechende Sheet mit angeben, funktioniert so nicht. Das Sheet heisst "Eingang"
Ist in dem Moment des Aufrufs nicht aktiv.
Gruss
Roland
Das Sheet muß nicht aktiv sein!
30.01.2009 21:55:49
Backowe
Hi Roland,
VBA-Code:
Sub Schleife()
Dim i%
With Sheets("Eingang")
  For i = 12 To 22
    If Application.CountBlank(.Range("A" & i & ":C" & i)) = 0 Then _
      .Range("D" & i) = "Alles voll"
  Next
End With
End Sub
Gruß Jürgen
Danke, geht oT
Roland

AW: Range nach Inhalt überprüfen
Daniel

Hi
wozu schleife?

with range("D12:D22")
.FormulaR1C1 = "=IF(COUNTA(RC[-3]:RC[-1])=3),""Alles Voll"","""")
.formula = .value
end with


gruß, Daniel

Danke dir auch oT
Roland

Anzeige
Danke, geht oT
31.01.2009 10:32:40
Roland
AW: Range nach Inhalt überprüfen
30.01.2009 21:36:00
Daniel
Hi
wozu schleife?

with range("D12:D22")
.FormulaR1C1 = "=IF(COUNTA(RC[-3]:RC[-1])=3),""Alles Voll"","""")
.formula = .value
end with


gruß, Daniel

Danke dir auch oT
31.01.2009 10:34:00
Roland

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige