Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1216to1220
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1216to1220
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Zelle Inhalt, dann X

Wenn Zelle Inhalt, dann X
martin
Hallo Forum,
in meiner Tabelle möchte ich den Zellen der Spalten G,I und K ein X zuweisen, wenn die Nachbarzellen der Spalten H,J und L einen (Text-) Wert beinhalten.
https://www.herber.de/bbs/user/75143.xls
Wie mache ich das?
Danke im Voraus und beste Grüße
AW: Wenn Zelle Inhalt, dann X
03.06.2011 06:46:25
mas
Hallo martin
mal als erster Ansatz
In die Zelle G1 diese Formel
=WENN(ISTKTEXT(H1);FALSCH;"X")
alle anderen entsprechend
mas
AW: Wenn Zelle Inhalt, dann X
03.06.2011 07:25:24
martin
Hallo mas,
die Formel funktioniert soweit aber ich erhalte dann den Wert Falsch.
Es wäre gut, keine Anzeige zu sehen.
Geht das ev. mit VBA?
martin
AW: Wenn Zelle Inhalt, dann X
03.06.2011 07:39:32
ede
Hallo,
dann änder doch einfach die Formel ab:
=WENN(ISTKTEXT(H1);"";"X")
Gruss
AW: Wenn Zelle Inhalt, dann X
03.06.2011 07:55:45
martin
Hallo ede,
klappt super, danke!
Trozdem, gibt es eine VBA-Lösung?
martin
AW: Wenn Zelle Inhalt, dann X
03.06.2011 14:09:48
fcs
Hallo Martin,
grundsätzlich gibt es auch eine VBA-Lösung,
In deiner Beispiel-Datei hab ich entsprechende Makros eingebaut.
Makro "Check_Spalten_H_J_L" im Modul "Mod_Eingabepruefung" prüft alle Daten-Zeilen in den 3 Spalten.
Ereignis-Makro "Private Sub Worksheet_Change(ByVal Target As Range)" unter dem Modul der Tabelle "Tabelle1" prüft bei jeder Eingabe in Zelle(n) ob Eingaben in eine der 3 Spalten gemacht wurden.
Beide Makros verwenden das eigentliche Prüfmakro "Eingabe_Pruefen" als Sub-Routine.
Die von dir eingebaute bedingte Formatierung für die Spalte A war nicht optimal. Insbesondere war sie anfällig gegen das Einfügen/Löschen von ganzen Zeilen. Ich hab dort eine Variante eingebaut, die doppelte Artikelnummern gelb kennzeichnet und Nummern, die nicht aufsteigend sortiert sind rot.
Gruß
Franz
Anzeige
AW: Wenn Zelle Inhalt, dann X
03.06.2011 19:26:33
martin
Hallo Franz,
habe deinen Beitrag jetzt erst gesehen. Ich habe immer nur am Ende der Liste geschaut.
Habe viel rumprobiert und wollte dann auch mit zweien Arbeiten. Habe bis jetzt schon eine Menge hinbekommen als Neuling. Das beschäftigt mich aber schon seit Tagen.
Kannst Du mir weiterhelfen mit den makros?
Gruß
martin
AW: Wenn Zelle Inhalt, dann X
04.06.2011 01:08:05
fcs
Hallo Martin,
da hatte ich versehentlich die angepasste Datei nicht mit meiner Antwort hochgeladen.
Hier ist sie jetzt.
https://www.herber.de/bbs/user/75157.xls
Gruß
Franz
AW: Wenn Zelle Inhalt, dann X
04.06.2011 22:04:58
martin
Hallo Franz,
ich habe den Code in meine Mappe eingebaut und getestet. Er läuft rund.
Das ist alles sehr gut erklärt und hat mir total viel gebracht.
Auf meine bedingten Formatregeln habe ich gar nicht geachtet und habe diese geändert.
Danke für diese tolle Hilfe!
gruss martin
Anzeige
Excel-gut- ?
03.06.2011 08:00:05
robert
Hi,
also bei Deinem Level kannst Du keine Lösung finden, aber VBA soll es sein
VBA-bescheiden schreibst Du......
So eine Formel müsstest Du doch zustandebringen, denn nur so lernt man was.
Nicht immer gleich ins Forum..........
Denk mal drüber nach ;-)
Gruß
robert
AW: Excel/ VBA bescheiden !
03.06.2011 08:34:38
martin
Hallo robert,
entschuldige bitte meine Fehleinschätzung.
Ist mein Level jetzt so richtig angegeben?
Learning bei doing.... denn nur so lernt man was.
Denk mal drüber nach ;-)
Gruß
martin
AW:versuch mal
03.06.2011 09:03:34
hary
Hallo Martin
teste mal dies makro. 

Option Explicit
Sub versuch()
Dim spalte As Long
Dim zeile As Long
For spalte = 8 To 12 Step 2
For zeile = 2 To Cells(Rows.Count, spalte).End(xlUp).Row
If Cells(zeile, spalte)  "" Then
Cells(zeile, spalte - 1) = "X"
Else
Cells(zeile, spalte - 1) = ""
End If
Next
Next
End Sub

gruss hary
Anzeige
AW: versuch mal
03.06.2011 09:25:03
martin
Hallo hary,
bin leider erst heute Abend wieder am Rechner. Dann probiere ich es aus.
Danke erst einmal.
martin
AW: AW:versuch mal
03.06.2011 19:02:24
martin
Hallo hary,
habe das makro getestet.
Läuft bei der Makierung der Werte mit X super.
Lösche ich einen oder mehrere Werte, lässt es das X stehen, was ich nicht verstehe.
martin
AW: AW:versuch mal
04.06.2011 10:57:11
hary
Moin Martin
Ich wollte die Schleife so kurz wie moeglich halten und dadurch kammt das.
so gehts: 

Dim spalte As Long
Dim zeile As Long
Application.ScreenUpdating = False
For spalte = 8 To 12 Step 2
For zeile = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(zeile, spalte)  "" Then
Cells(zeile, spalte - 1) = "X"
Else
Cells(zeile, spalte - 1) = ""
End If
Next
Next
Application.ScreenUpdating = False

wobei die evtl. bessere und schnellere Loesung waere:
Code in den Code des Tabellenblattes. Dieser startet sobald in Spalte H J K etwas geaendert wird. 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 8, 10, 12
If Target  "" Then
Target.Offset(0, -1) = "X"
Else
Target.Offset(0, -1) = ""
End If
End Select
End Sub

gruss hary
Anzeige
AW: AW:versuch mal
04.06.2011 22:06:00
martin
Hallo Hary,
das ist echt unglaublich, wie kurz man Codes halten kann.
Ich habe nur den Zweiten getestet und der macht alles wie er soll.
Vielen Dank für die prompte Unterstützung!
Gruss martin
AW: Excel/ VBA bescheiden !
03.06.2011 09:48:07
robert
Zitat: 
Learning bei doing.... denn nur so lernt man was.
Hi martin,
das machst du aber nicht, wenn du fertige Lösungen einsetzt !
Sollte keine Kritik, sondern Anregung sein ;-)
Gruß
robert

300 Forumthreads zu ähnlichen Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
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
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Anzeige
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
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
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
15
2
1
5
2
9
6
2
4
2
7
10
5
1
2
9
2
11
2
3
4
4
5