Office: Makro: Zeichen in Zelle zählen

Hallo zusammen.

Ich merke gerade wie eingestaubt meine ohnhin noch nie ausgeprägten VBA-Kenntnisse sind. Vielleicht ist einer von euch so nett mir auf die Sprünge zu helfen. Ich versuche mir ein Makro für folgende Aufgabe zu schreiben:

Für alle Zellen in Spalte A:
- Zähle jeweils die darin befindlichen Zeichen ohne Leerzeichen
- Multipliziere das Ergebnis mit einer Variablen, die ich noch festlegen muss (Ergebnis 1)
- Dividiere das neue Ergebnis durch 60. Nachkommastellen sollen abgeschnitten werden. (Ergebnis 2)
- Schreibe beide Ergebnisse in die danaben befindliche Zelle in Spalte B in der folgenden Form: Ergebnis 2 (Ergebnis 1)

Das gleiche möchte ich auch noch mit den Spalten C und D verwirklichen.

Ich hoffe, das war verständlich. Wäre toll wenn mir da jemand weiterhelfen könnte...

 

Moin Nepomoc,

leider bleibst Du eine wichtige Information schuldig: Welche Zeichen sind in den Spalten vorhanden? Nur Ziffern/Zahlen oder auch Buchstaben/Sonderzeichen? Warum gibt es Leerzeichen?

Wenn ich da die Division durch 60 sehe, vermute ich, dass es um Zeiten geht. Vielleicht zeigst Du mal ein paar Werte mit dem gewünschten Ergebnis. Eine ganze Arbeitsmappe muss nicht sein.

Grüße

 

Hallo d`r Bastler.

Danke für deine Antwort.

In den Zellen befinden sich vor allem Buchstaben, manchmal Sonderzeichen, selten Zahlen. Im Idealfall würde ich Buchstaben und Zahlen zählen wollen. Ich weiß aber nicht, ob das geht. Zur Not nehme ich auch Sonderzeichen und Leerzeichen in Kauf. Auch damit könnte ich arbeiten.

Bei den Daten handelt es sich um in Excel vorbereitete Listen, die ich in das Lernprogramm Anki importiere. In Anki werden die Daten dann ich entsprechende Karteikarten umgewandelt.

Der Umfang der Karteikarten weicht stark voneinander ab. Ziel ist es über die Anzahl der Zeichen einen objektiven Wert für den Umfang einer Karte zu bekommen. Dem Umfang entsprechend soll die Lernzeit pro Karte kalkuliert werden. Die Multiplikation mit einer Variable x soll letztlich die angesetzte Sekundenzahl ergeben. Die Division durch 60 die gerundete Minutenzahl (Da fällt mir auf, gerundet wäre besser als abgeschnitten).

Im Moment teste ich das erstmal mit Vokabellisten. Deswegen das ganz auch noch mal für die Spalten C und D, welche dann die Abfrage der Vokabel in umgekehrter Richtung beinhalten. Da ich das ganze noch an Vokablen teste, würde ein Ergebnis, dass mich glücklich macht, so aussehen:

Variable x = 30
Also 10 Zeichen mal 30 sind 300 Sekunden, sind 5 Minuten.
Somit wird aus:
déguisé/e (en) - ... - verkleidet (als) - ...
Nach der Umwandlung mit dem Makro:
déguisé/e (en) - 5 (300) - verkleidet (als) - 7 (390)

Beste Grüße
Nepomoc

 

Hi,

meinst du vielleicht so:

Code:

Sub Umrechnung()
    Dim lngZeile As Long
    Dim dblZaehler As Double
    Dim dblVielfach As Double
    dblVielfach = 15 '<== noch festlegen
    For lngZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        dblZaehler = (Len(Cells(lngZeile, 1)) - Len(Application.Substitute(Cells(lngZeile, 1), " ", ""))) * dblVielfach
        Cells(lngZeile, 2) = CInt(dblZaehler / 60) & " (" & dblZaehler & ")"
    Next lngZeile
End Sub

---

 

Fast, Beverly.

Aufbauend auf deinem Code habe ich es aber hinbekommen. Und jetzt funktioniert es:

Code:

Sub Umrechnung()
    Dim lngZeile As Long
    Dim dblZaehler As Double
    Dim dblVielfach As Double
    dblVielfach = 15 '<== noch festlegen
    For lngZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        dblZaehler = (Len(Application.Substitute(Cells(lngZeile, 1), " ", ""))) * dblVielfach
        Cells(lngZeile, 2) = CInt(dblZaehler / 60) & " (" & dblZaehler & ")"
    Next lngZeile
End Sub

Vielen Dank für eine Mühe. Du hast mir sehr geholfen.
Nepomoc