Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.06.2025 19:51:23
Überlappende Gruppierungen machen mir Probleme
14.06.2025 11:36:22
Zeilen Kopieren als "index" und Umwandeln in Zahlen
14.06.2025 01:19:50
Vorhersage Monatsumsatz anhand bereits erfolgter Tagesumsätz
13.06.2025 19:20:06
XVERWEIS nächster Wert bei exakten Match
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If Wenn auch bei Übernahme aus anderer Zelle

Forumthread: If Wenn auch bei Übernahme aus anderer Zelle

If Wenn auch bei Übernahme aus anderer Zelle
12.01.2004 18:20:19
SK
Hallo,
ich habe untenstehende Formel.
Diese funktioniert aber nur, wenn ich den entsprechenden Wert direkt in AO3 eintrage, wenn er aus einer anderen Zelle in AO3 übernommen wird geht es nicht.
Für Eure Hilfe wäre ich sehr dankbar.
Erbitte genaue Anweisungen
MFG SK

Private Sub Worksheet_Change(ByVal Target As Range)
' MA-1 *** DplWoche-2
If Target.Address = "$AO$3" Then
Select Case Target.Value
Case "O"
Worksheets("DplWoche-2").[C8] = 0
Case "U"
Worksheets("DplWoche-2").[C10] = "U"
Case "FB"
Worksheets("DplWoche-2").[C10] = "FB"
Case ""
Worksheets("DplWoche-2").[C10] = ""
Worksheets("DplWoche-2").[C8] = ""
Case Else
Worksheets("DplWoche-2").[C8] = ""
End Select
End If
End Sub

Anzeige

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Benutzerdefinierte Funktion
Tags
#codefehler #makro #vba
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: If Wenn auch bei Übernahme aus anderer Zelle
12.01.2004 18:25:40
Werner
Hallo?? (gibt's auch nen Namen?)
verwende:
Private Sub Worksheet_Calculate()

Gruss Werner
AW: If Wenn auch bei Übernahme aus anderer Zelle
12.01.2004 18:30:44
Stefan
HAllo Werner,
ja es gibt auch nen Namen, sorry.
ich habe einfach Worksheet_Change in Worksheet_Calculate ausgetauscht, aber da kommt eine Fehlermeldung.
MfG
Stefan
AW: If Wenn auch bei Übernahme aus anderer Zelle
12.01.2004 18:49:56
Werner
Hallo Stefan,
Sorry hab den Code nicht richtig angesehn!
Logisch das eine Fehlermeldung.
So sollte es gehn!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' MA-1 *** DplWoche-2
Select Case [$AO$3].Value
Case "O"
Worksheets("DplWoche-2").[C8] = 0
Case "U"
Worksheets("DplWoche-2").[C10] = "U"
Case "FB"
Worksheets("DplWoche-2").[C10] = "FB"
Case ""
Worksheets("DplWoche-2").[C10] = ""
Worksheets("DplWoche-2").[C8] = ""
Case Else
Worksheets("DplWoche-2").[C8] = ""
End Select
End Sub

Gruss Werner
Anzeige
AW: If Wenn auch bei Übernahme aus anderer Zelle
12.01.2004 19:01:32
Stefan
Hallo Werner,
sorry, aber der Code funktioniert immer noch nicht. Es kommt zwar keine Fehlermeldung, aber er führt es auch nicht aus. Es passiert einfach garnichts.
MfG Stefan
AW: If Wenn auch bei Übernahme aus anderer Zelle
12.01.2004 19:12:23
Werner
Hallo Stefan,
verwendest du ein Makro um den wert in eine der Zellen zu schreiben?
Den schreib am Ende des Makros den befehl Calculate.
Und verwende doch

Private Sub Worksheet_Calculate()
' MA-1 *** DplWoche-2
Select Case [$AO$3].Value
Case "O"
Worksheets("DplWoche-2").[C8] = 0
Case "U"
Worksheets("DplWoche-2").[C10] = "U"
Case "FB"
Worksheets("DplWoche-2").[C10] = "FB"
Case ""
Worksheets("DplWoche-2").[C10] = ""
Worksheets("DplWoche-2").[C8] = ""
Case Else
Worksheets("DplWoche-2").[C8] = ""
End Select
End Sub


Ansonsten ist mein Latein am Ende.
Gruss Werner
Anzeige
AW: If Wenn auch bei Übernahme aus anderer Zelle
12.01.2004 19:19:55
Stefan
Hallo Werner,
nein hier verwende ich kein Makro, sondern die Formel =WIEDERHOLEN('DplWoche-1'!AO3;1)
und mit Private Sub Worksheet__Calculate() funktioniert es auch nicht.
Oder bin einfach zu sehr Laie in VBA?
MfG Stefan
Sorry weiter weiss ich nicht! oT. noch offen!!
12.01.2004 19:23:37
Werner
Gruss Werner
AW: Sorry weiter weiss ich nicht! oT. noch offen!!
12.01.2004 19:42:40
andre
hallo allerseits,
frei nach herrn h.e.b genial daneben bzw. fast schon dicht dran:
den ersten teil in einem change-makro lassen:

Private Sub Worksheet_Change(ByVal Target As Range)
' MA-1 *** DplWoche-2
Select Case [ao3].Value
Case "O"
Worksheets("DplWoche-2").[C8] = 0
Case "U"
Worksheets("DplWoche-2").[C10] = "U"
Case "FB"
Worksheets("DplWoche-2").[C10] = "FB"
Case ""
Worksheets("DplWoche-2").[C10] = ""
Worksheets("DplWoche-2").[C8] = ""
Case Else
Worksheets("DplWoche-2").[C8] = ""
End Select
End Sub

das ganze auch noch mal in ein 

Private Sub Worksheet_Activate() - makro von diesem blatt.
reicht das?
gruss andre
Anzeige
AW: quatsch, läuft sich tod
12.01.2004 19:46:55
andre
...
AW: quatsch, läuft sich tod
12.01.2004 19:50:12
Stefan
Hallo Andre
ging eigentlich, nur wenn ich z.B. "U" wieder gelöscht hatte lief es sich tod
MfG
Stefan
AW: neue Fehlermeldung
12.01.2004 19:43:22
Stefan
Hallo Werner,
vielleicht doch?
Nach eineigem Probieren gibt er mir jetzt die Meldung:
"Laufzeitfehler 424 Objekt erforderlich"
für diese Variante:

Private Sub Worksheet_Calculate()
' MA-1 *** DplWoche-2
If Target.Address = "$AO$3" Then
Select Case [$AO$3].Value
Case "O"
Worksheets("DplWoche-2").[C8] = 0
Case "U"
Worksheets("DplWoche-2").[C10] = "U"
Case "FB"
Worksheets("DplWoche-2").[C10] = "FB"
Case ""
Worksheets("DplWoche-2").[C10] = ""
Worksheets("DplWoche-2").[C8] = ""
Case Else
Worksheets("DplWoche-2").[C8] = ""
End Select
End If
If Target.Address = "$AP$3" Then
Select Case [$AP$3].Value
Case "O"
Worksheets("DplWoche-2").[E8] = 0
Case "U"
Worksheets("DplWoche-2").[E10] = "U"
Case "FB"
Worksheets("DplWoche-2").[E10] = "FB"
Case ""
Worksheets("DplWoche-2").[E10] = ""
Worksheets("DplWoche-2").[E8] = ""
Case Else
Worksheets("DplWoche-2").[E8] = ""
End Select
End If
If Target.Address = "$AQ$3" Then
Select Case [$AQ$3].Value
Case "O"
Worksheets("DplWoche-2").[G8] = 0
Case "U"
Worksheets("DplWoche-2").[G10] = "U"
Case "FB"
Worksheets("DplWoche-2").[G10] = "FB"
Case ""
Worksheets("DplWoche-2").[G10] = ""
Worksheets("DplWoche-2").[G8] = ""
Case Else
Worksheets("DplWoche-2").[G8] = ""
End Select
End If
If Target.Address = "$AR$3" Then
Select Case [$AR$3].Value
Case "O"
Worksheets("DplWoche-2").[I8] = 0
Case "U"
Worksheets("DplWoche-2").[I10] = "U"
Case "FB"
Worksheets("DplWoche-2").[I10] = "FB"
Case ""
Worksheets("DplWoche-2").[I10] = ""
Worksheets("DplWoche-2").[I8] = ""
Case Else
Worksheets("DplWoche-2").[I8] = ""
End Select
End If
If Target.Address = "$AS$3" Then
Select Case [$AS$3].Value
Case "O"
Worksheets("DplWoche-2").[K8] = 0
Case "U"
Worksheets("DplWoche-2").[K10] = "U"
Case "FB"
Worksheets("DplWoche-2").[K10] = "FB"
Case ""
Worksheets("DplWoche-2").[K10] = ""
Worksheets("DplWoche-2").[K8] = ""
Case Else
Worksheets("DplWoche-2").[K8] = ""
End Select
End If
If Target.Address = "$AT$3" Then
Select Case [$AT$3].Value
Case "O"
Worksheets("DplWoche-2").[M8] = 0
Case "U"
Worksheets("DplWoche-2").[M10] = "U"
Case "FB"
Worksheets("DplWoche-2").[M10] = "FB"
Case ""
Worksheets("DplWoche-2").[M10] = ""
Worksheets("DplWoche-2").[M8] = ""
Case Else
Worksheets("DplWoche-2").[M8] = ""
End Select
End If
If Target.Address = "$AN$3" Then
Select Case [$AN$3].Value
Case "O"
Worksheets("DplWoche-2").[O8] = 0
Case "U"
Worksheets("DplWoche-2").[O10] = "U"
Case "FB"
Worksheets("DplWoche-2").[O10] = "FB"
Case ""
Worksheets("DplWoche-2").[O10] = ""
Worksheets("DplWoche-2").[O8] = ""
Case Else
Worksheets("DplWoche-2").[O8] = ""
End Select
End If
End Sub

MfG Stefan
Anzeige
AW:
12.01.2004 19:56:24
andre
hallo allerseits,
beim select case das worksheet dazu, dann klappts. das calculate wird ja ausgelöst, wenn sich auf einem anderen blatt was ändert. und wenn man zufällig gerade dort ist, soll ja auch ein ergebnis kommen ... 

Private Sub Worksheet_Calculate()
Select Case Worksheets("DplWoche-2").[ao3].Value
Case "O"
Worksheets("DplWoche-2").[C8] = 0
Case "U"
Worksheets("DplWoche-2").[C10] = "U"
Case "FB"
Worksheets("DplWoche-2").[C10] = "FB"
Case ""
Worksheets("DplWoche-2").[C10] = ""
Worksheets("DplWoche-2").[C8] = ""
Case Else
Worksheets("DplWoche-2").[C8] = ""
End Select
End Sub

Anzeige
AW:
12.01.2004 20:11:44
Stefan
Hallo Andre.
Also wenn ich "U" drin habe geht es, aber sobals ich es wieder lösche hängt er sich auf.
bei Worksheets("DplWoche-2").[O8] = ""
MfG Stefan
AW:
12.01.2004 20:18:30
andre
hallo stefan,
hast du jetzt nur das Worksheet_calculate makro oder noch ein anders? bei mir gehts, wenn ich nur das Worksheet_calculate makro drin habe.
gruss andre
Anzeige
AW:
12.01.2004 20:28:15
Stefan
Hallo Andre,
Wenn ich nur das Worksheet_calculate makro drin habe, hängt er sich auf, sobald ich den Wert in der Ursprungstabelle lösche, die Zelle dann also leer ist. Wenn ich "O" oder "U" eintrag funktioniert es.

Private Sub Worksheet_Calculate()
Select Case Worksheets("DplWoche-2").[ao3].Value
Case "O"
Worksheets("DplWoche-2").[C8] = 0
Case "U"
Worksheets("DplWoche-2").[C10] = "U"
Case "FB"
Worksheets("DplWoche-2").[C10] = "FB"
Case ""
Worksheets("DplWoche-2").[C10] = ""
Worksheets("DplWoche-2").[C8] = ""
Case Else
Worksheets("DplWoche-2").[C8] = ""
End Select
End Sub


MfG Stefan
Anzeige
AW:
12.01.2004 20:37:54
andre
hallo stefan,
da komme ich auch nicht weiter, weil ich kein 97 habe. unter xp läufts.
was ist denn, wenn du meinetwegen erst was ganz anderes reintust und dann löschst?
gruss andre
AW:
12.01.2004 20:41:19
andre
... mal davon abgesehen,
- warum nimmst du wiederholen und nicht gleich =ao3?
- warum gehst du mit dem makro nicht gleich nach der zelle DplWoche-1!ao3 ?
gruss andre
Anzeige
AW:
12.01.2004 20:46:12
Stefan
Hallo noch mal,
warum ich nicht gleich in DplWoche-1!ao3 gehe. hat bisher auch nicht geklappt, aber wie würdest Du dann den Formelblock schreiben?
MfG Stefan
AW:
12.01.2004 20:42:40
Stefan
Hallo Andre,
auch wenn ich vorher z.B. S eintrage und dann lösche läft er sich tod.
Danke für Deine Mühe!
MfG Stefan
Anzeige
AW:
12.01.2004 20:51:47
Stefan
Hallo noch mal,
warum ich nicht gleich in DplWoche-1!ao3 gehe. hat bisher auch nicht geklappt, aber wie würdest Du dann den Formelblock schreiben?
MfG Stefan

Forumthreads zu verwandten Themen

Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Zellen in anderes Blatt übertragen wenn ....
Micha*
So vielleicht?Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$3" Then
If Tabelle1.Range("A1") > 0 Then
Tabelle1.Range("B1:D1").Copy
Tabelle2.Activate
Tabelle2.Range("B1:D1").Activate
ActiveSheet.Paste
14.04.2002 10:18:27
Thread-ID: 113125
2 Beiträge
Mittelwert eines Bereichs mit zwei Bedingungen
Uwe

Hallo excel-Freunde,
in B4 bekomme ich den Mittelwert wie gewünscht, in B6 funktioniert der praktisch gleiche Sachverhalt, jedoch ergänzt um eine 2. Bedingung, nicht.
Kann mir jemand sagen wie ich das korrekt schreiben muß?
https://www.herber.de/bbs/user/75062.xls
Danke herzlich...
28.05.2011 14:36:23
Thread-ID: 1216499
7 Beiträge
Suchen, wenn leer andere Zelle verknüpfen, sonst..
Laund

Hallo
Ich brauche wieder einmal eure Hilfe. Ihr seit einfach super. Ich habe keine Chance bei so Sachen:
Die Vorlage sieht so aus:
P - - - T
-18X1
-18X1 1
-18X1 2
-19X1
-19X1 A
-19X1 B
-22X1
-22X1 1
-22X1 2
-22X1 PE
Spalte T sollte durchge...
25.11.2011 12:31:48
Thread-ID: 1239375
2 Beiträge
Anzeige
Teilergebnis mit Mittelwertsfkt mit Bedingung
Julia

Hello!
so, ich stehe vor folgendem Problem und komme nicht weiter.
ich habe eine Mittelwertsfunktion die wie folgt ausschaut:
={MITTELWERT(WENN(TEIL(A1:A10;1;1)="<"; WERT(TEIL(A1:A10;2;6));A1:A10))} ~f~
<i>- A1:A10 ist exemplarisch
Ziel ist es auch dann zu rechnen,...
23.05.2013 16:31:17
Thread-ID: 1314618
5 Beiträge
Zellen einfärben wenn andere Zelle farbig
Flo

Hallo zusammen,
ich habe ein Problem, dass ich vermutlich nicht mit der bedingten Formatierung lösen kann. Ich möchte gerne ein Tabellenblatt so gestalten, dass in jeder Zeile die Spalten B bis G grau eingefärbt werden, wenn sie in der Zeile direkt darunter weiß sind.
Mein Code funktio...
30.07.2013 16:34:49
Thread-ID: 1324910
4 Beiträge
Anzeige
Durchschnitt v. bestimmten Zahlen in einer Spalte
Lorian

Hallo zusammen,
ich möchte den Durchschnitt von Zahlen in einer Spalte berechnen. Dabei sollen nur die Zahlen miteinbezogen werden, die nicht 0 sind, und wo keine leere Zelle ist.
Zunächst habe ich es mit einem Filter versucht, und dann mit der Formel
=SUBTOTAL(1;range)
aber da...
19.08.2013 10:49:21
Thread-ID: 1327407
9 Beiträge
Eintrag wenn in andere Zelle Wert vorhanden
Patrick

Hallo zusammen,
ich möchte ein Fragen-Archiv aufbauen, mit denen ich meine Kollegen "nerven" kann ;-)
Hierfür habe ich eine Datei erstellt mit:
Spalte B: Frage
Spalte C: Antwort
Spalte D: Bereits genutzt? (Auswahlmöglichkeit ja oder nein)
Spalte E: Datum
Spalte F: nu...
05.06.2014 17:13:17
Thread-ID: 1364880
5 Beiträge
Anzeige
Hilfe bei Fkt Mittelwert mit Bedingungen
Matthias

Hallo zusammen,
irgendwie komme ich nicht weiter. Das Problem ist folgendes:
In der angehängten Datei geht es um folgendes:
In der Spalte K soll solgendes passieren: - Suche in W nach übereinstimmung mit a und bild aus den Werten in AG den Mittelwert. Irgendwie komme ich da nicht we...
04.07.2014 20:38:28
Thread-ID: 1368980
3 Beiträge
Anzeige
Wenn Zelle = C1, dann andere Zelle = D1
Christian

Hallo alle zusammen,
ich hoffe jemand hat eine Idee, wie man folgendes Prolem lösen kann.
Ich suche eine Möglichkeit, 2 Texte in C1 und D1 zu schreiben.
Der Text in C1 steht bereits an mehreren Stellen im Bereich E1:CP92, der Text in D1 ist neu in der Tabelle.
Wenn das Ganze fer...
12.08.2014 22:17:31
Thread-ID: 1376063
4 Beiträge
Wenn Inhalt in Zelle dann andere Zelle entsperren
Sebastian

Hallo zusammen!
Ich möchte mit einem Makro den Wert einer Zelle auslesen und bei einem bestimmten Zeichen sollen dann andere Zellen freigeschalten werden, ich hatte es über folgendes Beispiel gelößt:
If Range("F9") Like "*+*" Then Range("B11").Locked = False Else Range("B11").Locked = T...
14.10.2014 10:37:53
Thread-ID: 1386550
9 Beiträge
Mittelwert aus 10 Zeilen einer Spalte bilden
Jonas

Hallo zusammen!
Ich habe ein kleines Problem. Es geht darum jeweils aus 10 Zeilen den Mittelwert zu bilden. Ich hatte auch schon ein funktionierendes Makro erstellt, dieses will aber nicht mehr so funktionieren wie ich das möchte...
Hier mein Versuch: Dim i As Integer For i = 301 To 742...
26.03.2015 08:32:03
Thread-ID: 1417207
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige