Office: wenn a1 oder a2 oder a3 (...) = "H" dann a16="H"

Luciana. · 15. Mai 2004

sorry, ich wusst nicht so ganz wie ich mein Problem im Topictitel zum ausdruck bringen soll.
also, ich hab eigentlich ein ganz simples problem:

wenn im bereich a1 bis a15 eine Zelle den Wert "H" hat soll a16 auch den wert "H" annehmen.
Ich wollte das mit einer verschachtelten wenn-funktion machen. das funktioniert bis zu einer bestimmten stelle, ich glaube a8 oder so. dann vermute ich dass das ganze zu lang wird, es kommt die fehlermeldung dass ein fehler in der formel besteht. Ich hab das ganze auch nochmal abgetippt, die fehlermeldung kommt ab der gleichen länge.

gibts da irgendeine Möglichkeit das anders zu lösen ohne VBA?

ansonsten bin ich auch gerade am Probieren. hab leider noch keine erfahrung in excel vba. also sorry falls ich eigentlich grundlegende fragen stelle.

Und zwar bin ich so vorgegangen dass ich zuerst die werte einlese, dann mit einer ewiglangen verschachtelen if-abfrage vergleiche ob der wert "H" enthalten ist, wenn ja setze ich Ausgabe auf "H" und gebe den wert an a16 zurück.

jetzt zu meinen zwei hauptproblemen:

-wie erreiche ich dass die ausgabe automatisch aktuallisiert wird, quasi als hätte ich eine normale excel- funktion (zB. wenn ich a3 änder sich a16 auch gleich ändert)

-kann ich die angaben irgendwie relativ gestalten (oder wie drückt man das aus? ich möchte erreichen dass die funktion auch für b1-15 verwendbar ist)

vielen vielen lieben dank schonmal im Vorraus

:)

piano · 17. Mai 2004

Hallo
Ohne VBA kann ich eine Lösung mit folgender Formel vorschlagen: Code:

=WENN(ISTFEHLER(FINDEN("H";VERKETTEN(A1;A2;A3;A4;A5;A6;A7;A8;A9;A10;A11;A12;A13;A14;A15)));"";"H")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Uwe Küstner · 17. Mai 2004

Hallo Luciana,

oder so:

=WENN(ZÄHLENWENN(A1:A15;("H"))>0;"H";"")

Luciana. · 17. Mai 2004

*idee

vielen lieben dank!

ist ja doch recht einfach. nur muss man darauf erstmal kommen

Luciana. · 17. Mai 2004

Original geschrieben von Luciana.
-wie erreiche ich dass die ausgabe automatisch aktuallisiert wird, quasi als hätte ich eine normale excel- funktion (zB. wenn ich a3 änder sich a16 auch gleich ändert)

-kann ich die angaben irgendwie relativ gestalten (oder wie drückt man das aus? ich möchte erreichen dass die funktion auch für b1-15 verwendbar ist)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aber mal so rein interessehalber damit ich das nächste mal schlauer bin:
geht das? *rolleyes.gif*

Uwe Küstner · 17. Mai 2004

Hallo Luciana,

die Formeln sind relativ, so daß Du sie auch in B16 kopieren kannst.

Luciana. · 17. Mai 2004

ah sorry ich mein wenn ich etwas in VBA gemacht hätte

Uwe Küstner · 17. Mai 2004

Hallo Luciana,

in VBA z.B. so:

Code:

Function AnzahlWerte(SuchBereich As Range, Suchstring As String)
Dim SuchZelle As Range
For Each SuchZelle In SuchBereich.Cells
If SuchZelle.Value = Suchstring Then AnzahlWerte = AnzahlWerte + 1
Next SuchZelle
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann als Formel in der Zelle:

=AnzahlWerte(A1:A15;"H")

Luciana. · 17. Mai 2004

*angel danke

piano · 17. Mai 2004

Hallo
Wenn Du das automatisieren willst, dann etwa folgender Code im Worksheet-Change Ereignis des gewünschten Arbeitsblattes:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ZellZeile As Integer, ZellSpalte As Integer, MaxSpalte As Integer
Dim Anzahl As Integer, i As Integer
Application.ScreenUpdating = False
MaxSpalte = 7 ' Maximale Anzahl Spalten
ZellZeile = ActiveCell.Row
ZellSpalte = ActiveCell.Column
If ZellZeile > 15 Then Exit Sub
If ZellSpalte > MaxSpalte Then Exit Sub
' nur wenn im gewünschten Bereich
Anzahl = 0
' in gewählter Spalte suchen
For i = 1 To 15
If UCase(Cells(i, ZellSpalte).Value) = "H" Then
Anzahl = Anzahl + 1
Exit For
End If
Next i
Cells(16, ZellSpalte).Activate
Cells(16, ZellSpalte).Value = ""
If Anzahl > 0 Then
Cells(16, ZellSpalte).Value = "H"
End If
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: wenn a1 oder a2 oder a3 (...) = "H" dann a16="H"

wenn a1 oder a2 oder a3 (...) = "H" dann a16="H"

wenn a1 oder a2 oder a3 (...) = "H" dann a16="H"

wenn a1 oder a2 oder a3 (...) = "H" dann a16="H"

wenn a1 oder a2 oder a3 (...) = "H" dann a16="H"

wenn a1 oder a2 oder a3 (...) = "H" dann a16="H" - Similar Threads - a16=H

Kalender na h Personen filtern

Bei Verwendung von STRG+H oder der Schaltfläche "Ersetzen" in Excel 2016 wird die ...

Wenn Zellen A-C farbig, Wert in Spalten F-H ändern

Access H&B 2016 mit Runtime 2016

Wert in B suchen und in H Datum

Päfix ist MS Office H&S 2019 - Druckbereich lässt sich nicht ändern/aufheben/festlege

Spalte sortieren innerhalb des Alphabets H,I,J,K...