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

Wenn Spalte Wert enthält dann...

Forumthread: Wenn Spalte Wert enthält dann...

Wenn Spalte Wert enthält dann...
27.06.2022 12:55:00
Thomas
Hallo,
ich habe in einer Tabelle3 (Arbeitsmappe im Anhang) in der in der Zeile 2 von Spalte Q bis AB Monate stehen 01-12, in C1 wird immer der aktuelle Monat eingetragen. Alle Werte die in Zeile 2 jetzt kleiner (links von dem Wert der auch in C1 steht)sind, sollen in den folgenden Zeilen(4 und) Werte aus Tabelle 1 eingetragen Werden. Ab der Spalte wo der Monatswert gleich dem Wert in C1 ist, sollen dann Werte aus Tabelle 2 in der richtigen spalte eingetragen werden, wie kann ich das erreichen?
Es muss dynamisch sein, da sich der Wert in C1 jeden Monat ändert.
Da es noch mehrere anderen Aktion gibt muss es in VBA gelöst werden. Leider fehlt mir grade komplett der Ansatz.
Danke
https://www.herber.de/bbs/user/153783.xlsm
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn Spalte Wert enthält dann...
27.06.2022 13:44:01
UweD
Hallo
- Rechtsclick auf den Tabellenblattreiter von Tabelle3
- Code anzeigen
- Diesen Code rechts reinkopieren
Löst automatisch aus, bei Änderungen in C1

Private Sub Worksheet_Change(ByVal Target As Range)
Const APPNAME = "Worksheet_Change"
On Error GoTo Fehler
Dim LR As Integer, i As Integer, Z1 As Integer
Dim SpZ As Integer, Sp1 As Integer, SpN As Integer
Dim Tb1 As Worksheet, Tb2 As Worksheet, Monat As Integer, Zeile As Integer
If Not Intersect(Target, Range("C1")) Is Nothing Then
Monat = Range("C1")
SpZ = 17 'Zieldaten ab Q
Set Tb1 = Sheets("Tabelle1")
Set Tb2 = Sheets("Tabelle2")
Z1 = 4 'erste Datenzeile in Tab3
Sp1 = 7 'Quelldaten ab Spalte G
SpN = 5 'Namensspalte E in Tab 1+2
LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
For i = Z1 To LR
'prüfen ob Name in TB1 vorhanden
If WorksheetFunction.CountIf(Tb1.Columns(SpN), Cells(i, 1)) > 0 Then
'in welcher Zeile
Zeile = WorksheetFunction.Match(Cells(i, 1), Tb1.Columns(SpN), 0)
Application.EnableEvents = False
If Monat > 1 Then 'nur ab Monat 02
Cells(i, SpZ).Resize(1, Monat - 1).Value = Tb1.Cells(Zeile, Sp1).Resize(1, Monat - 1).Value
End If
Else
MsgBox Cells(i, 1) & ": in " & Tb1.Name & " nicht gefunden"
Exit Sub
End If
'prüfen ob Name in TB2 vorhanden
If WorksheetFunction.CountIf(Tb2.Columns(SpN), Cells(i, 1)) > 0 Then
'in welcher Zeile
Zeile = WorksheetFunction.Match(Cells(i, 1), Tb2.Columns(SpN), 0)
Application.EnableEvents = False
Cells(i, SpZ).Offset(0, Monat - 1).Resize(1, 13 - Monat).Value = _
Tb2.Cells(Zeile, Sp1).Offset(0, Monat - 1).Resize(1, 13 - Monat).Value
Else
MsgBox Cells(i, 1) & ": in " & Tb2.Name & " nicht gefunden"
Exit Sub
End If
Next
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number  0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
LG UweD
Anzeige
AW: Wenn Spalte Wert enthält dann...
27.06.2022 16:09:57
Thomas
Hallo UweD,
vielen Dank für die schnelle und sehr ausführliche Hilfe, die sehr gut funktioniert, ich habe sie für mein Vorhaben entsprechend angepasst, da ich kein Worksheet_Change Event möchte an der stelle.
Ich bin aber ehrlich gesagt noch nicht so ganz dahinter gestiegen was hier genau passiert:

 Cells(i, SpZ).Offset(0, Monat - 1).Resize(1, 13 - Monat).Value = _
Tb2.Cells(Zeile, Sp1).Offset(0, Monat - 1).Resize(1, 13 - Monat).Value

Anzeige
AW: Wenn Spalte Wert enthält dann...
27.06.2022 16:42:04
UweD
das ist der Zielbereich
Cells(i, SpZ).Offset(0, Monat - 1).Resize(1, 13 - Monat)
Bezogen auf Müller und Monat 06
also:
- in der entsprechenden Zeile 4 (i) beginnend an SpZ (Spalte Q)
- von dort 0 nach unten, aber 5 Spalten nach rechts verschoben
=&GT Ergibt die Zelle V4
- von dort beginnend den Zellbereich vergrößern auf 1 Zeile und 7 Spalten (13-6)
=&GT ergibt V4:AB4
In diesen Bereich die Werte aus dem Quellbereich übernehmen
Quellbereich:
Tb2.Cells(Zeile, Sp1).Offset(0, Monat - 1).Resize(1, 13 - Monat).
- gefunden wurde Müller in Zeile 2
- Startspalte ist 7 = G
=&GT G2
- von dort 0 nach unten, aber 5 Spalten nach rechts verschoben
=&GT Ergibt die Zelle L2
- analog zu oben.. den Bereich erweitern.
LG UweD
Anzeige
AW: Wenn Spalte Wert enthält dann...
28.06.2022 07:19:28
Thomas
Hallo UweD,
super vielen Dank für die erklärung, jetzt hab ich es verstanden!
MFG
Thomas
AW: Wenn Spalte Wert enthält dann...
28.06.2022 09:13:46
Thomas
Muss dann leider doch noch mal fragen,
wie kann ich denn jetzt noch die Zellen die vor dem aktuellen Monat sind sperren, so das keine Eingaben mehr möglich sind?
Danke
AW: Wenn Spalte Wert enthält dann...
28.06.2022 10:00:25
UweD
Hallo
Der Schutz ist aber nur wirksam, wenn das BLATT geschützt ist.
Dazu müssen erstmal die Zellen, die bearbeitet werden dürfen entsperrt werden (auch C1 und Spalte A etc.)
- Zelle markieren
- Rechtsclick
- Zellen formatieren
- Bei Schutz dann den Haken bei "Gesperrt" rausnehmen
Das Sperren / Entsperren der Monatbereiche habe ich dann im Makro eingebaut.

Private Sub Worksheet_Change(ByVal Target As Range)
Const APPNAME = "Worksheet_Change"
On Error GoTo Fehler
Dim LR As Integer, i As Integer, Z1 As Integer
Dim SpZ As Integer, Sp1 As Integer, SpN As Integer
Dim Tb1 As Worksheet, Tb2 As Worksheet, Monat As Integer, Zeile As Integer
If Not Intersect(Target, Range("C1")) Is Nothing Then
Monat = Range("C1")
SpZ = 17 'Zieldaten ab Q
Set Tb1 = Sheets("Tabelle1")
Set Tb2 = Sheets("Tabelle2")
Z1 = 4 'erste Datenzeile in Tab3
Sp1 = 7 'Quelldaten ab Spalte G
SpN = 5 'Namensspalte E in Tab 1+2
LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
'Sperrung aufheben
ActiveSheet.Unprotect 'DeinPasswort
For i = Z1 To LR
'prüfen ob Name in TB1 vorhanden
If WorksheetFunction.CountIf(Tb1.Columns(SpN), Cells(i, 1)) > 0 Then
'in welcher Zeile
Zeile = WorksheetFunction.Match(Cells(i, 1), Tb1.Columns(SpN), 0)
Application.EnableEvents = False
If Monat > 1 Then 'nur ab Monat 02
With Cells(i, SpZ).Resize(1, Monat - 1)
.Value = Tb1.Cells(Zeile, Sp1).Resize(1, Monat - 1).Value
.Locked = True
End With
End If
Else
MsgBox Cells(i, 1) & ": in " & Tb1.Name & " nicht gefunden"
Exit Sub
End If
'prüfen ob Name in TB2 vorhanden
If WorksheetFunction.CountIf(Tb2.Columns(SpN), Cells(i, 1)) > 0 Then
'in welcher Zeile
Zeile = WorksheetFunction.Match(Cells(i, 1), Tb2.Columns(SpN), 0)
Application.EnableEvents = False
With Cells(i, SpZ).Offset(0, Monat - 1).Resize(1, 13 - Monat)
.Value = Tb2.Cells(Zeile, Sp1).Offset(0, Monat - 1).Resize(1, 13 - Monat).Value
.Locked = False
End With
Else
MsgBox Cells(i, 1) & ": in " & Tb2.Name & " nicht gefunden"
Exit Sub
End If
Next
'Sperren
ActiveSheet.Protect 'DeinPasswort
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number  0 Then MsgBox "Fehler in Sub """ & APPNAME & """" & vbCrLf _
& "Fehlernummer: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
LG UweD
Anzeige
AW: Wenn Spalte Wert enthält dann...
28.06.2022 10:46:32
Thomas
Hallo Uwe,
super vielen Dank, ich hatte es in der Zwischenzeit gelöst, allerdings nicht so "schön" wie du

'Range(Cells(lngA, Spz), Cells(lngA, Spz + Monat - 2)).Locked = True

Daumen hoch
28.06.2022 10:52:32
UweD

Forumthreads zu verwandten 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
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
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
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
Anzeige
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
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Stichwort in Zelle B7,dann zusammzählen VBA
Wolfgang

Hallo,
im Tabellenblatt "Start" befinden sich in Zelle B7 bis B23 bestimmte Stichwörter, die auch in Tabelle "Daten", Spalte H vorkommen. Ich würde gerne zu jedem Stichwort zwei Abfragen klären:
Beispiel:
(Abfrage1)
1. Stichwort aus Zelle B7 kommt in Spalte H (Tabelle "Daten") v...
06.10.2009 19:49:07
Thread-ID: 1107632
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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