Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Range nach Inhalt überprüfen

Forumthread: Range nach Inhalt überprüfen

Range nach Inhalt überprüfen
30.01.2009 22: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
So!
30.01.2009 22: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 22: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 22: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 11:32:40
Roland
AW: Range nach Inhalt überprüfen
30.01.2009 22: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 11:34:00
Roland
Anzeige

Forumthreads zu verwandten Themen

Auf Knopfdruck neue Zeile in Zelle....
Unwissender
Hallo zusammen,
habe eine VBA-Excel mit dem Rekorder erstellt.
Es handelt sich um eine ToDo-Liste, in der ich immer in einer Zelle in einer Art "Tagebuch" neue Informationen hinzufüge.
So soll es im Idealfall aussehen:
Mit einem Knopfdruck soll in einer ausgewählten Zelle, in der sch...
14.06.2022 16:00:20
Thread-ID: 1887238
3 Beiträge
Auf Knopfdruck neue Zeile in einer Zelle
Unwissender
Hallo zusammen,
(vorab: es gab von mir schon mal eine Anfrage diesbezüglich:
https://www.herber.de/forum/archiv/1884to1888/1887238_Auf_Knopfdruck_neue_Zeile_in_Zelle.html
Aber ich habe noch einen Änderungswunsch in Fett:
Hier nochmals die Anforderung mit der Neuerung in Fett:
ha...
24.10.2022 17:41:29
Thread-ID: 1904158
2 Beiträge
Zeilenumbruch
Emini

Hallo Room,
Ich habe eine Frage, und zwar möchte ich XML-Datei in Excel-Tabelle übertragen. Jedesmal, wenn neue XML-Datei übertragen wird, soll eine leere Zeile erzeugt werden, dann kommt die neue Datei. Natürlich kann man per Hand mit "neue Zeile einfügen" machen, aber es ist zu umständlic...
23.04.2004 21:52:36
Thread-ID: 418575
1 Beitrag
Anzeige
Zeilenumbrüche in zellen finden
Jörg

Hallo,
ich erstelle über VBA aus einer Tabelle verschiedene Texte, die ich als Angebot nutze. Je nach Eingabe in der Tabelle können dabei Angebotspositionen mit einer Größe von nur einer Zeile aber auch solche mit 20 Zeilen und mehr in einer Zelle werden.
Es gibt immer wieder Probleme,...
22.09.2015 15:22:55
Thread-ID: 1448645
5 Beiträge
Problem bei mehreren VBA´s auf einer Zelle
Markus
Hallo Excel Experten,

ich arbeite in zwei Tabellbereichen. In Tab1 sind Eingabezellen, in die ein "x" vorgegeben werden kann. Dieses "x" sorgt dafür, dass in Tab2 ausgeblendete Zeilen eingeblendet werden. Das ganze funktioniert mit VBA:

Private Sub Worksheet_Change(ByVal Target As...
02.10.2003 22:49:41
Thread-ID: 318518
12 Beiträge
@Oberschlumpf: Zeilen im VBA-Code und Modul ausles
ChrisSp

Hi Thorsten,
du hattest vor knapp nem Monat mal was zum Thema Zeilen auslesen bei einem unbekannten Fehler geposten. Ich hatte ja ein bisschen was rumgemäckelt und dir versprochen meine Ideen einzubauen und mich zu melden.
Nun ja - hiermit will ich dies dann auch endlich mal tun.
Er...
13.04.2005 11:47:03
Thread-ID: 598094
2 Beiträge
Excel VBA: Problem mit Hierarchie in Makro
Ronald
Hallo zusammen,

ich brauche eure Hilfe. Eine KI hat dieses Makro für mich geschrieben und es funktioniert grundsätzlich sehr gut. Es gibt nur einen Fehler bei der Behandlung der Hierarchie:

Die oberste Hierarchie (z. B. 1-4-1) soll in Spalte O gesucht werden.

Wird der Begr...
09.11.2025 18:16:24
Thread-ID: 2020781
22 Beiträge
Export Excel > Word
Frau_Kuchen

Ich habe folgende Aufgabenstellung:
1) einige Excel-Dokumente mit Pivot-Daten und Diagrammen
2) Daten und Diagramme werden aktualisiert (von zentraler Exceldatei aus, die die einzelnen Mappen öffnet, bearbeitet und dann wieder schliesst)
2a) Pivotdaten werden ausgewertet und zu meh...
04.01.2008 16:17:29
Thread-ID: 938784
2 Beiträge
Zeilenumbruch erzeugt neue Zeile
Toastie

Hallo zusammen,
als fast Ahnungsloser in Sachen VBA brauche ich eure Hilfe. Ich habe folgende Problemstellung:
In einem Tabellenblatt t1 befindet sich eine Tabelle. Diese soll zeilenweise in ein neues Tabellenblatt t2 kopiert werden. Dabei soll jedoch für jeden Zeilenumbruch in der 6. S...
25.10.2016 15:21:24
Thread-ID: 1521569
4 Beiträge
Daten über mehrere Tab. sortieren
Peter

Hallo und schönen guten Abend zusammen,
ich habe mal eine Frage an die Experten. Besteht die Möglichkeit mittels VBA über mehrere Tabellen zu sortieren und die sortierten Daten in ein neue Tabelle zu kopieren?
Ich habe bis jetzt 2 Tabellen, 2007 und 2008. In jeder Tabelle stehen ca 1150...
22.04.2008 20:45:30
Thread-ID: 971332
8 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum