Formel oder VBA
#11
Hi,

die Aufgaben beruhen auf einfachstem Anfängerwissen. Dazu braucht es nur 2 Formeln in C und E, eine eingebaute Excel-Funktion in H2 und eine einfache WENN in M2!
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#12
Ja das WENN bei M1 funkt bei mir leider nicht und da finde ich den Fehler nicht.

Meine Idee für M1 wäre

=WENN(K1:K3=M1;"Ja";"Nein")

oder ist das falsch???



Kannst du mir ein Beispiel geben was du meinst mit den 2 Formeln und welche Funktion wäre da ideal???
Antworten Top
#13
Hi,


Zitat:oder ist das falsch???


JA!!


Arbeite Dich mal hier durch:

https://online-excel.de/excel/grusel.php?f=6
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#14
Danke für den Link. Na das wird morgen etwas.
Antworten Top
#15
Zur Info das haben wir gestern in 4 Stunden geschrieben

Code:
Sub sub_aus_ein()
tb = "NAME"
ze = "A1"
zahl1 = Sheets(tb).Range(ze).Cells(1, 1).Value
zahl2 = Sheets(tb).Range(ze).Cells(2, 1).Value
    Sheets(tb).Range(ze).Cells(10, 1).Value = zahl1
    Sheets(tb).Range(ze).Cells(11, 1).Value = zahl2
   
End Sub
--------------------------------
Sub sub_zahlen1()
tb = "NAME"
ze = "C1"
    zahl = Sheets(tb).Range(ze).Cells(1, 1).Value
    Sheets(tb).Range(ze).Cells(16, 1).Value = zahl
   
End Sub
--------------------------------
Sub sub_zahlen2()
tb = "NAME"
ze = "E1"
c = 2
d = 1
Anfang:
If c < 30 Then
    Sheets(tb).Range(ze).Cells(d, 1).Value = c
    c = c + 3
    d = d + 1
    GoTo Anfang
End If
End Sub
--------------------------------
Sub sub_zaehlen()
tb = "NAME"
ze = "G1"
zaehlwert = 1
Anfang:
    wert = Sheets(tb).Range(ze).Cells(zaehlwert, 1).Value
    If wert <> "" Then
        zaehlwert = zaehlwert + 1
    GoTo Anfang
End If
    Sheets(tb).Range(ze).Cells(2, 2).Value = zaehlwert - 1
   
End Sub
--------------------------------
Sub sub_suche()
tb = "NAME"
ze = "K1"
a = 1
b = "Nein"
x = Sheets(tb).Range(ze).Cells(1, 3).Value
Anfang:
y = Sheets(tb).Range(ze).Cells(a, 1).Value
    If y <> "" Then
        If (y = x And b = "Nein") Then
        b = "Ja"
        End If
    a = a + 1
    GoTo Anfang
    End If
Sheets(tb).Range(ze).Cells(2, 3).Value = b
End Sub
--------------------------------
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste