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
1588to1592
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
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Zelle= dann Bereich beschreiben

Wenn Zelle= dann Bereich beschreiben
30.10.2017 07:55:14
Peter
Guten Morgen,
falls in Spalte A ein "x" steht, sollen die 10 darüber liegenden Zellen in Spalte B mit einem a beschrieben werden und der aktuelle Wert darin überschrieben werden.
Beispiel:
"x" in Zelle A67, dann soll der Wert in jede Zelle des Bereichs B58-B67 durch ein "a" ersetzt werden. In welcher Zeile das "x" in Spalte A auftritt ändert sich jedoch, da die Tabelle fortlaufend gefüllt wird.
Kann mir dazu jemand einen Tipp geben, soweit ich weiß ist dies nur mit VBA möglich.
Vielen Dank im voraus!

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn Zelle= dann Bereich beschreiben
30.10.2017 08:03:42
Nepumuk
Hallo Peter,
werden die x'e manuell eingetragen oder steckt da eine Formel dahinter? Was wenn z.B. in A5 ein x erscheint?
Gruß
Nepumuk
AW: Wenn Zelle= dann Bereich beschreiben
30.10.2017 08:25:03
Peter
Hallo Nepumuk,
die x'e werden per Formel eingetragen. Wenn in A5 ein x erscheint, soll B1-B5 null gesetzt werden.
Also die letzten 20 Zeilen, esseiden es existieren weniger als 20.
Ich habe die relevanten Daten der Tabelle erst bei 20 Beginnen lassen, sodass immer mindestens 20 (irrelevante) Zeilen davor liegen.
Gruß Peter
AW: Wenn Zelle= dann Bereich beschreiben
30.10.2017 08:10:52
Matthias
Hallo
Hier eine Variante
Code gehört ins Tabellenblatt
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 9 Then
If Target.Count > 1 Then Exit Sub
If Target = "x" Then Range("B" & Target.Row, "B" & Target.Row - 9) = "a"
End If
End Sub
Gruß Matthias
Anzeige
AW: Wenn Zelle= dann Bereich beschreiben
30.10.2017 08:40:15
Peter
Hallo Matthias,
deine Lösung funktioniert!
Vielen Dank euch beiden für die Hilfe.
Gibt es eine Möglichkeit, das Makro auf alle außer das erste Tabellenblatt anzuwenden?
Gruß Peter
AW: Wenn Zelle= dann Bereich beschreiben
30.10.2017 08:47:28
Matthias
Hallo
Für alle Tabellen den Code in DieseArbeitsmappe
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 And Target.Row > 9 Then
If Target.Count > 1 Then Exit Sub
If Target = "x" Then Range("B" & Target.Row, "B" & Target.Row - 9) = "a"
End If
End Sub

Du hast doch aber an Nepumuk geschrieben:
die x'e werden per Formel eingetragen
Dann müsste man das Calculate-Ereignis nehmen.
Gruß Matthias
Anzeige
AW: Wenn Zelle= dann Bereich beschreiben
30.10.2017 09:01:57
Peter
Hallo,
wenn ich es in die Arbeitsmappe schreibe, gilt es doch aber auch für das erste Tabellenblatt oder? Dafür soll es ja nicht gelten.
Ich habe die Zelle per Formel füllen lassen und es hat funktioniert. Ich hoffe, dass das nicht nur ein dummer Zufall war.
Unterscheidet VBA darin, wie die Zelle ausgefüllt wurde? Habe das jetzt so interpretiert, dass es mit Target schaut, ob in der Zelle ein "x" steht, egal wie das da hingekommen ist...
das erste Blatt heißt "Tabelle1"?
30.10.2017 09:08:47
Matthias
Hallo
Ja, hast Recht Hatte es überlesen.
das erste Blatt heißt "Tabelle1"? (sonst im Code ändern)
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name  "Tabelle1" Then
If Target.Column = 1 And Target.Row > 9 Then
If Target.Count > 1 Then Exit Sub
If Target = "x" Then Range("B" & Target.Row, "B" & Target.Row - 9) = "a"
End If
End If
End Sub
Gruß Matthias
Anzeige
AW: das erste Blatt heißt "Tabelle1"?
30.10.2017 09:13:32
Peter
Hallo,
vielen Dank!
Gruß Peter

348 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 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
Anzeige
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Wenn Zelle enthält, dann
Rudolph

Hallo,
ich möchte mit .xls meine Kontodaten auswerten. Die Kontoauszugsdaten stehen in Spalte "D" auf dem Sheet "Kontodaten" Im selben Sheet Spalte "E" steht der Betrag. Das Sheet "Bezüge" enthält Namensfelder (z.B. "Auto" mit einer Auflistung der Tankstellen, KFZ-Versicherung o.ä.; "Lebens...
23.05.2009 14:30:40
Thread-ID: 1076853
5 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge
Anzeige

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
15
5
2
2
7
2
3
4
4
2
9
2
6
9
8
5
2
10
2
3
5
2
3
3