Registriert seit: 13.04.2014
Version(en): 365
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.
Registriert seit: 07.12.2022
Version(en): 365
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???
Registriert seit: 13.04.2014
Version(en): 365
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.
Registriert seit: 07.12.2022
Version(en): 365
Danke für den Link. Na das wird morgen etwas.
Registriert seit: 07.12.2022
Version(en): 365
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
--------------------------------