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

wenn in Spalte A, dann löschen in C

Forumthread: wenn in Spalte A, dann löschen in C

wenn in Spalte A, dann löschen in C
19.07.2021 13:45:55
Klaus
Guten Tag,
ich habe ein Problem, dass ich ohne Hilfe nicht lösen kann.
Wenn ein Wert in Spalte A vorhanden ist, sollen in Spalte C und D die entsprechenden Zellen gelöscht werden. Wenn in Spalte D ein Datum steht, soll dies in die darüberliegende Zelle übertragen werden, wenn diese leer ist. Wenn nicht, wird das Datum nicht übertragen.
Vielleicht gibt es eine Lösung in VBA, die einfach genug ist, dass ich sie verstehe. Danke.
Beispiel: https://www.herber.de/bbs/user/147183.xlsx
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nachgefragt ...
19.07.2021 13:54:09
neopa
Hallo,
... das was Du als Ziel aufgezeigt hast, würde auch ohne VBA möglich sein und zwar in zwei verschiedenen Varianten (Formel- oder PQ-Lösung. Muss es als wirklich VBA sein?
Gruß Werner
.. , - ...
AW: nachgefragt ...
19.07.2021 15:31:46
Klaus
Hallo Werner,
danke für die schnelle Reaktion. VBA muss es nicht unbedingt sein. In Spalte C werden mindestens einmal pro Tag durch ein Makro neue Daten unten angefügt, also dachte ich die Aktualisierung geht auch per Makro.
Anzeige
AW: dann sieh mal ...
19.07.2021 16:43:18
neopa
Hallo Klaus,
... hier: fhttps://www.herber.de/bbs/user/147185.xlsx
Fr das Zeichen (im Beispiel "x") hab ich jeweils die zweite Zeile unterhalb Deinen Datenzeilen genutzt. Dort ist im jeweiligen Zeilenbereich durch Datengültigkeit auch nur ein "x" zugelassen. Das jeweilige "x" muss zwingend in der jeweils linken Spalte der zu rahmenden Zelle /Verbundzelle eingeben werden. Die Textfarbe von "x" hab ich hier bewusst nur grau gewählt, damit Du es zunächst nachvollziehen kannst. Im Original die Farbe auf weiß setzen oder die Zellen mit benutzerdefiniert Zahlenformat gar nicht darstellen lassen.
Gruß Werner
.. , - ...
Anzeige
AW: sorry, falscher thread owT
19.07.2021 16:44:44
neopa
Gruß Werner
.. , - ...
AW: wenn in Spalte A, dann löschen in C
19.07.2021 15:09:36
UweD
Hallo
in ein normales Modul.

Sub skdjkdjs()
Dim TB As Worksheet, SP1 As Integer, SP2 As Integer
Dim Z1 As Integer, LR As Long, I As Long
Dim Suchen As String
Set TB = Sheets("Tabelle1")
SP1 = 1 'Spalte A
SP2 = 3 'Spalte C
Z1 = 2 ' Erste Zeile mit Werten
Application.ScreenUpdating = False 'Zappeln ausschalten
With TB
LR = .Cells(.Rows.Count, SP2).End(xlUp).Row 'letzte Zeile der Spalte
For I = LR To Z1 Step -1 ' Abarbeiten von unten nach oben
Suchen = .Cells(I, SP2)
'Prüfen, ob in A vorhanden?
If WorksheetFunction.CountIf(.Columns(SP1), Suchen) > 0 Then
'Ist in der Nachbarzelle ein Datum?
If IsDate(.Cells(I, SP2).Offset(0, 1)) Then
'Ja, Ist darüber frei?
If .Cells(I, SP2).Offset(-1, 1) = "" And I > Z1 Then
'Datum nach oben kopieren
.Cells(I, SP2).Offset(-1, 1) = .Cells(I, SP2).Offset(0, 1)
End If
End If
' Bereich löschen und Folgebereich nach oben schieben
.Cells(I, SP2).Resize(1, 2).Delete xlUp
End If
Next
End With
End Sub
LG UweD
Anzeige
AW: wenn in Spalte A, dann löschen in C
19.07.2021 17:23:34
Herbert_Grom
Hallo Klaus,
in deinem Beispiel werden alle Daten in G & H gelöscht, da sie in A auch vorhanden sind. Auf welchem Weg kommen neue Daten in die Spalten G&H?
Servus
AW: die Datenwerte in G: H sind das Ergebnis ...
20.07.2021 10:38:35
neopa
Hallo Herbert,
... aus den Daten von C:D reduziert um die Daten die in Spalte A angeben sind. Mit meiner angedachten Formel- oder PQ Lösung hätte ich sie auch dort so erstellt. Uwe hat mit seiner VBA-Lösung die Reduzierung direkt in C:D vorgenommen.
Gruß Werner
.. , - ...
Anzeige
AW: die Datenwerte in G: H sind das Ergebnis ...
20.07.2021 12:17:27
Herbert_Grom
Hallo Werner,
du hast recht und ich habe mal wieder nur die Hälfte gelesen!
Servus

Forumthreads zu verwandten Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Anzeige
Zelle löschen wenn Formel kein übertrag macht
Roger

Hallo
Ich hab da folgendes Problem das ich gern egelöst hätte.
Auf einem Blatt (übersicht) habe ich in den Zeilen 7 - 210 Formeln eingetragen, die auf andere Blätter (Monate) verweisen. Wenn nun auf dem anderen Blatt z.b. Monat Januar und Monat Dezember etwas eingetragen wird so wird e...
08.10.2008 11:16:00
Thread-ID: 1014963
8 Beiträge
Anzeige
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige