Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wörter in Arbeitsmappe finden und zählen

Forumthread: Wörter in Arbeitsmappe finden und zählen

Wörter in Arbeitsmappe finden und zählen
27.05.2024 19:52:18
Manuel Kofler
Hallo zusammen,

ich habe in meiner Beispieldatei einen Tätigkeitsbericht der immer wieder neue Arbeitsblätter hinzufügt (Kalenderwoche = Blattname.
Im Formular-Tabellenblatt können die Tätigkeiten für diese Woche eingegeben werden (mit Drop-Down).

Jetzt soll im Tabellenblatt Tätigkeiten die Anzahl der Tätigkeiten und die entsprechende Kalenderwoche mittels VBA ermittelt und angezeigt werden (im roten Bereich).
Das Endergebnis habe ich bereits ausgefüllt.

Ich möchte dies nun codieren, über eine Schleife die Anzahl der Tätigkeit in allen Tabellenblättern suchen und die dazugehörige Woche (=Tabellenblatt) finden.

Vielen Dank für eure Hilfe!!

https://www.herber.de/bbs/user/169746.xlsm
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wörter in Arbeitsmappe finden und zählen
27.05.2024 20:27:56
daniel
Hi
beispielsweise mit diesem Code im Modul des Tabellenblatts "Tätigkeiten"
aktualisiert wird, wenn du das Blatt aktivierst 

Private Sub Worksheet_Activate()

Dim sh As Worksheet

Dim rng As Range

Dim arr

Dim z As Long



Set rng = Range(Cells(2, 2), Cells(1, 2).End(xlDown).Offset(0, 2))

rng.Offset(0, 1).Resize(, rng.Columns.Count - 1).ClearContents

arr = rng.Value



For Each sh In ThisWorkbook.Worksheets

    If IsNumeric(sh.Name) Then

        For z = 1 To UBound(arr, 1)

            If WorksheetFunction.CountIf(sh.Columns(1), arr(z, 1)) Then

                arr(z, 2) = arr(z, 2) + 1

                arr(z, 3) = arr(z, 3) & ", " & sh.Name

            End If

        Next

    End If

Next



For z = 1 To UBound(arr, 1)

    arr(z, 3) = Mid(arr(z, 3), 2)

Next



rng = arr



End Sub


Gruß Daniel
Anzeige
AW: Wörter in Arbeitsmappe finden und zählen
27.05.2024 20:44:36
Manuel Kofler
Vielen lieben Dank Daniel - funktioniert super!
AW: Wörter in Arbeitsmappe finden und zählen
28.05.2024 14:15:42
Manuel Kofler
Hallo Daniel,

ich habe die Tabelle nun etwas angepasst - nun funktioniert es leider nicht mehr.
Könntest du mir bitte nochmals weiterhelfen, muss ich irgendetwas adaptieren?

Vielen lieben Dank!

https://www.herber.de/bbs/user/169754.xlsm

Gruß Manuel
Anzeige
AW: Wörter in Arbeitsmappe finden und zählen
28.05.2024 14:52:42
daniel
Hi
ich prüfe über den Blattnamen, ob das Blatt ein relevantes Kalenderwochenblatt ist.
bisher hattest du nur die Kalenderwoche als blattnamen verwendet, daher hat die Abfrage mit IsNumeric (ist eine Zahl)
jetzt hast du das Jahr mit unterstrich hinzugefügt. also musst du die Prüfung entsprechend ändern.

if sh.Name like "##_##" or sh.Name like "#_##" then

# ist der joker für eine Ziffer beim Like-Vergleich.

oder du denkst dir etwas anderes aus, woran man erkennen kann, dass das Blatt ausgewertet werden muss, dann kannst du das alternativ auch einsetzen.

Gruß Daniel
Anzeige
AW: Wörter in Arbeitsmappe finden und zählen
28.05.2024 15:53:54
Manuel Kofler
Vielen lieben Dank - jetzt hab ich es verstanden! Grüße

Forumthreads zu verwandten Themen

Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Zahlen in Text umwandeln
Thomas

Liebe Excelianer
Ich fülle per Excel ein Formular aus, welches ich anschliessend auf einen Check drucke. Darauf gibt es ein Feld mit einem Total, welches unten in Textform übertragen werden muss (Betrag in Worten).
Was kann ich tun, damit diese Zahl automatisch in Buchstaben umgewandelt...
01.04.2009 23:23:30
Thread-ID: 1066161
16 Beiträge
Anzeige
Werte in Zahlen umwandeln
Jakob

Hallo,
ich habe Daten aus SAP in Excel importiert. Die Werte in der Spalte "AQ" werden als Text importiert. Deshalb habe ich diese Werte mit "1" multipliziert um die Spalte ins Zahlenformat umzuwandeln. Ich habe dafür den folgenden Code mit dem Macrorecorder aufgezeichnet.
Range("BB...
12.05.2009 10:28:57
Thread-ID: 1074517
12 Beiträge
GROSSBUCHSTABEN in kleinbuchstaben umwandeln
marbet

Hallo,
kann mir jdm sagen, wir ich eine Tabelle, die in lauter Großbuchstaben geschreiben ist in kleine ändern kann?
Die Funktion =klein(Text) funktioniert leider nicht....
Vielen Dank!
09.06.2009 11:13:41
Thread-ID: 1080092
5 Beiträge
Wörter in Zellen / Spalteninhalte zählen
Lemmi

Hallo zusammen,
ich möchte gerne feststellen wieviel gleiche Wörter/ Zahlen sich wiederholen!
Ich habe eine Spalte mit nachfolgenden Inhalt:
Zellen ab E6
E6: Müller Fritz 123
E7: Meier Hans 456
E8: Kleiner Hund 123
E9 Müller Hans123
E10:123
E11: 456
Es s...
27.09.2009 09:04:35
Thread-ID: 1105727
3 Beiträge
Wörter in Zelle zählen
Frederieke

Hallo, wie kann ich Wörter einer Zelle (durch Komma getrennt) zählen?
Anzahl der der Kommata + 1?
Wie kann ich das verformeln?
Danke
Frederike
04.05.2010 11:34:47
Thread-ID: 1155299
2 Beiträge
Wörter in einzelnen Zellen zählen
Katrin

Hallo zusammen!
Ich schaffe es leider nicht nur in bestimmten Zellen ein bestimmtes Wort zu zählen. Leider sind auch hier alle beschriebenen Formeln immer direkt für ganze Zellbereiche (z.B. A1:F1) Und ich will aber nur A1, C1, D1 zählen.
Ich habe es jetzt mit =ZÄHLENWENN(A1;C1;F1;"Wer...
28.05.2010 16:08:15
Thread-ID: 1159311
3 Beiträge
Anzeige
Worte in Zelle zählen
Jürgen

Hallo
im Archiv habe ich leider nichts finden können zum Thema:
Zählen von Wörtern in einer Zelle,
kann von mir aus auch zählen nach Leerzeichen in einer Zelle sein.
hauptsache die Tatsächliche Anzahl von Worten in dieser Zelle ist korrekt
könnte mir da jemand mit einer For...
04.06.2010 08:50:29
Thread-ID: 1160287
4 Beiträge
Anzeige
Zahlen in Worte
ali elmas

Hallo Zusammen,wie bekomme ich es hin Zahlen in Worte umzuwandeln. z.B. 1=eins; 100=hundert ...Vielen Dank schon einmal für die antwort.gruss
ali

02.05.2002 10:09:52
Thread-ID: 117774
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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