Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Addieren von Buchstaben / Variabeln

Addieren von Buchstaben / Variabeln
29.06.2004 14:21:42
Buchstaben
Hallo,
wie kann ich folgendes Problem lösen ?
1 A B C D E
2 Name1 Name2 Name3 U
3 U 0,5U 0,5U 2U
In Spalte E2 soll die Summe der U's erscheinen, U entspricht 1U!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
nur Ansicht verbessert o.w.T.
Reinhard 
1	A      	B	C     	D      	E
2	Name1	Name2	Name3		U
3	U	0,5U	0,5U		2U

Gruß
Reinhard
AW: Addieren von Buchstaben / Variabeln
Buchstaben
Hallo Ingo,
Dein Problem kannst Du z.B. mit einer benutzerdefinierten Funktion lösen.
Die nachstehende Funktion gehört in ein normales Standard-Modul.
Eintrag in Zelle "C2“: "=ZAEHLE_U(A2:C2)" (ohne Anführungszeichen!)
Option Explicit

Function ZAEHLE_U(Bereich As Range) As String
Dim c As Range
Dim anz As Double
For Each c In Bereich
If c.Text = "U" Then
anz = anz + 1
ElseIf Len(c.Text) > 1 Then
anz = anz + CDbl(Left(c.Text, Len(c.Text) - 1))
End If
Next c
ZAEHLE_U = CStr(anz & "U")
End Function

Viel Erfolg wünscht
WernerB.
Anzeige
AW: Addieren von Buchstaben / Variabeln
30.06.2004 18:08:14
Buchstaben
Hallo Werner!
Danke für Deine schnelle Hilfe.
Leider klappt es bei mir nicht, kannst Du mir vielleich eine Beispieldatei senden?
Das wäre echt toll! Und Danke im voraus!
MfG
Ingo
AW: Addieren von Buchstaben / Variabeln
30.06.2004 18:14:30
Buchstaben
Hallo Werner!
Hat doch noch geklappt. Vielen Dank!
Kannst Du mir die Funktion näher erläutern?
Wie lautet die Funktion, wenn ich statt "U'S", "FB'S" addieren möchte?
MfG
Ingo
AW: Addieren von Buchstaben / Variabeln
Buchstaben
Hallo Ingo,
die "ZAEHLE_U-Funktion" schaut sich jede Zelle im vorgegebenen Bereich einzeln an (For-Each-Schleife).
Dabei läuft ein Zähler mit (anz).
Steht in einer Zelle ein "U" alleine, so wird dem Zählerstand der Wert "1" hinzuaddiert;
Im anderen Fall (ElseIf) wird – wenn der Zellinhalt aus mehr als einem Zeichen besteht – der Wert vor dem "U" ermittelt (Left(c.Text, Len(c.Text) - 1)) und dem Zählerstand hinzuaddiert.
An dieser Stelle könnte man auch noch diverse Sicherheitsprüfungen einbauen (z.B.: ist das letzte Zeichen ein "U"?. Ist der Wert vor dem "U" numerisch?); hierauf habe ich hier allerdings verzichtet.
Zuletzt wird dem Zählerstand noch ein "U" angehängt (anz & "U") und dem Funktionsnamen zugewiesen; das Ergebnis wird dann in der Zelle angezeigt, in der die Funktion aufgerufen wird.
Hier noch die gewünschte FB-Funktion:

Function ZAEHLE_FB(Bereich As Range) As String
Dim c As Range
Dim anz As Double
For Each c In Bereich
If c.Text = "FB" Then
anz = anz + 1
ElseIf Len(c.Text) > 2 Then
anz = anz + CDbl(Left(c.Text, Len(c.Text) - 2))
End If
Next c
ZAEHLE_FB = CStr(anz & "FB")
End Function

Weiterhin viel Erfolg wünscht
WernerB.
Anzeige
AW: Addieren von Buchstaben / Variabeln
01.07.2004 13:05:56
Buchstaben
Danke für die schnelle Antwort.
MfG
Ingo

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige