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

wenn zelle leer, dann spalte x auf x-1 kopieren

Forumthread: wenn zelle leer, dann spalte x auf x-1 kopieren

wenn zelle leer, dann spalte x auf x-1 kopieren
17.04.2004 10:41:04
mehmet
hallo forum
folgendes anliegen:
wenn zelle b im sheet printmatrix leer, dann spalte loeschen
schleifenabfrage bis b100
danke
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wenn zelle leer, dann spalte x auf x-1 kopieren
17.04.2004 11:05:57
WernerB.
Hallo Mehmet,
mit "Zelle" meinst Du sicher "Spalte". Eine Schleife ist hierfür nicht erforderlich.
Was hältst Du hiervon?

Sub Mehmet()
If WorksheetFunction.CountA(Range("B1:B100")) = 0 Then _
Range("B1").EntireColumn.Delete
End Sub

Viel Erfolg wünscht
WernerB.
Anzeige
AW: wenn zelle leer, dann spalte x auf x-1 kopieren
17.04.2004 11:11:15
mehmet
hallo werner
dank dir
leider passiert nichts!

Sub WennB_Leer()
If WorksheetFunction.CountA(Range("B3:B100")) = 0 Then _
Range("B4").EntireRow.Delete
End Sub

die zellen b sind zwar teilweise leer aber in der zelle sind formeln enthalten
gruss
mehmet
Anzeige
AW: wenn zelle leer, dann spalte x auf x-1 kopieren
17.04.2004 12:12:41
WernerB.
Hallo Mehmet,
wenn in einer Zelle eine Formel enthalten ist, ist die Zelle nicht leer - auch wenn die Formel nichts anzeigt.
Vielleicht geht es dann so:

Sub Mehmet()
Dim c As Range
Dim Check As Boolean
Application.ScreenUpdating = False
For Each c In Range("B1:B100")
If c.Text <> "" Then
Check = True
Exit For
End If
Next c
If Check = False Then Range("B1").EntireColumn.Delete
Application.ScreenUpdating = True
End Sub

MfG
WernerB.
Anzeige
AW: wenn zelle leer, dann spalte x auf x-1 kopieren
17.04.2004 12:20:12
mehmet
hallo werner
leider passiert nichts!
warum?
AW: wenn zelle leer, dann spalte x auf x-1 kopieren
17.04.2004 12:47:26
WernerB.
Hallo Mehmet,
warum bei Dir nichts passiert, weiß ich nicht.
Vielleicht solltest Du Dein Problem noch mal verständlicher beschreiben und ggf. eine Beispieldatei dazu hochladen.
Ich bin davon ausgegangen, dass Du die Spalte "B" löschen möchtest, wenn der Zellbereich "B1:B100" leer ist oder Formeln enthält, die nichts anzeigen; und das funktioniert bei mir (Excel97).
Für heute muss ich leider Schluss machen.

MfG
Werner
Anzeige
AW: wenn zelle leer, dann spalte x auf x-1 kopieren
17.04.2004 12:45:41
PeterW
Hallo Mehmet,
welche Spalte (meinst du wirklich Spalte?) in welchem Blatt soll gelöscht werden wenn welche Zelle B leer ist?
Gruß
Peter
AW: wenn zelle leer, dann spalte x auf x-1 kopieren
17.04.2004 12:56:39
mehmet
hallo zusammen
sheet "printmatrix" spalte "b" ab zelle "b3"
wenn b3 leer dann loesche diese reihe sonst gehe zu b4
wenn b4 leer dann loesche diese reihe sonst gehe zu b5
usw abfrage bis zelle b100
danke
Anzeige
AW: wenn zelle leer, dann spalte x auf x-1 kopieren
17.04.2004 15:52:13
PeterW
Hallo Mehmet,
dann sollte das so gehen:

Sub Mehmet()
Dim lgRow As Long
For lgRow = 100 To 3 Step -1
If Cells(lgRow, 2) = "" Then
Rows(lgRow).Delete
End If
Next
End Sub

Gruß
Peter
super, hat geklappt. danke dir (o.T.)
18.04.2004 02:25:58
mehmet
dank dir

Forumthreads zu verwandten Themen

Unterschiedliche Färbung verschiedener Textteile
Anne123

Hallo,
ich bin VBA-Anfängerin und möchte gerne mittels eines Makros erreichen, dass bestimmte Textteile, die Ergebnis einer Formel sind, in verschiedenen Farben eingefärbt werden.
Wenn ein Teil des Formelergebnisses "(rot)" enthält, dann soll dieser Textteil rot gefärbt werden, und der...
14.09.2017 20:17:17
Thread-ID: 1580547
3 Beiträge
Anzeige
Zellberechnung stoppen wenn Bedingung ..
HP
Hallo alle zusammen,
ich bin neu hier und absoluter VBA-Anfänger. Mein Problem lässt sich aber wohl nur auf diesem Wege lösen.
Ich habe eine Bearbeitungsmatrix welche von mehreren Bearbeitern als "Rohdatei" kopiert und dann ausgefüllt wird. Für diese Datei suche ich eine Lösung die etwa wie...
08.12.2021 15:21:30
Thread-ID: 1860760
13 Beiträge
Anzeige
Zeile mit best. Textteil ermitteln
Art

Hallo Forum.
Eine einfache Frage, ich stehe nur auf dem Schlauch.
Ich suche in einer Spalte die Zeile, in der die Zelle einen bestimmten Text enthält. Beispiel:
Spalte A
1 "123 Hello"
2 "456 World"
3 "789 !"
Die vermutete Formel müsste irgendwie aussehen wie:
=VE...
02.05.2006 16:23:41
Thread-ID: 760196
2 Beiträge
wenn Textteil dann bestand abziehen
Memph

Hallo liebe VBA'ler
Ich bekomme mal wieder was nicht hin.
KUZFORM Erklärung
In sheet1 wird in Spalte 4 per makro Text eingegeben (bsp. Sonnenbrille) und die Menge ( x1 oder x5)
Sobald das Wort und die Menge dort in der Zeile erscheint die per xlUp + 1 sich also immer verändert,...
08.06.2018 21:38:08
Thread-ID: 1627998
4 Beiträge
Formatierter Text in Formelausdrücken
Stefan

Ich möchte in eine Zelle einen Text schreiben, der tiefgestellte Textteile enthält. Der Text ist allerdings abhängig von anderen Ereignissen und muss deshalb innerhalb einer Formel (WENN Abfrage) eingebaut werden.
Wie kann ich innerhalb einer Formel Text mit tiefgestellten Elementen ausgebe...
11.05.2007 14:01:01
Thread-ID: 869380
1 Beitrag
Mehrere WENN ODER geschachtelt
Sebastian

Hallo,
ich habe folgendes Problem. Ich bekomme eine Formel mit mehreren wenn/oder Funktionen nicht auf die Reihe. Ich sitze schon seit einer stunde daran werde langsam lethargisch. Ich hoffe ihr habt eine Lösung für mich:
Wenn Zelle H2 Textteil "abc" und Textteil "xyz" enthält, dann "Be...
23.01.2019 14:22:24
Thread-ID: 1670258
2 Beiträge
Textteile aus Tabelle in Zellen vorhanden?
Reini

Hallo zusammen.
Ich wäre mega froh, wenn mir jemand von Euch helfen könnte.
Ich habe folgendes Problem:
Zellen in einer Spalte enthalten Freitext.(Nennen wir sie mal "Freitextzellen")
In diesen Zellen möchte ich nach Textteilen suchen.
Die zu suchenden Textteile sind ideale...
10.02.2017 23:04:33
Thread-ID: 1540773
10 Beiträge
Alle Treffer mit Textteil finden
wilde.13
Hallo,
ich möchte gern in einer Liste mit Daten (siehe Beispieldatei) die Bezeichnung in Spalte B durchsuchen, ob sie das Suchkriterium, das in D4 eingegeben wird, enthält. Wenn eine Zelle diesen Wortteil enthält, dann soll die zugehörige Nummer daneben in Spalte E geschrieben werden. Allerdings...
08.02.2022 15:58:22
Thread-ID: 1869584
3 Beiträge
Bed. Formatierung, wenn unterschiedliche Textteile
RK

Aloha Community.
Ich möchte per bedingter Formatierung eine Zelle einfärben, wenn diese beispielsweise den Textteil "Toleranz" oder "Ursache" enthält. Zwar könnte ich mehrere Regeln mit je einem Textteil anlegen, würde jedoch gern alle möglichen Textteile in eine Formel packen. Ich erhoffe...
24.06.2019 09:51:30
Thread-ID: 1699194
13 Beiträge
Textteil aus Zelle als Wenn Formel
Beni

Schönen Samstag Morgen
Trotz suche und Ansätzen im Archiv bekomme ich das nicht zum Laufen:
Zeile I4 enthält O:\Hugo\Geräte\"Hersteller"\Backöfen\ESC 100.pdf
In Zelle A4 sollte der "Hersteller" erscheinen, (z.B Miele, Electrolux)
Gescheitert bin ich mit dem Versuch:
=WENN(...
12.09.2009 09:04:58
Thread-ID: 1102152
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.05.2026 12:45:17
VBA - ungewollte Zeitrechnung
18.05.2026 11:48:41
for each datei in dateiliste, Fehler 424:Objekt erforderlich
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum