Office: Zellen zählen in VBA

Helfe beim Thema Zellen zählen in VBA in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Ahoi, da mein bisheriger Threat wohl selbst die Profis überfordert hat brech ich das Problem mal ein wenig runter. Wie kann ich mir in VBA die... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von caspar, 22. März 2005.

  1. Zellen zählen in VBA


    Ahoi,

    da mein bisheriger Threat wohl selbst die Profis überfordert hat brech ich das Problem mal ein wenig runter.

    Wie kann ich mir in VBA die gefüllten Zellen in einer unbekannt/ bekannt großen Range zählen lassen und diesen Wert für weitere Kalkulationen/ Loops nutzen?

    Danke für Eure Hilfe,

    julian

    :)
     
    caspar, 22. März 2005
    #1
  2. Moin, julian,

    aber klar doch - man hat den ganzen lieben langen Tag ja auch nichts anderes zu tun:

    Code:
    Wenn die UsedRange-Anweisung einem "unbekannten" Bereich entsprechen darf...
     
  3. Hallo Jinx,

    vielen Dank für Deinen Hinweis. Leider habe ich mich ein wenig unpräzise ausgedrückt. Mein Problem gestaltet sich eher wie folgt.
    In der Spalte A möchte ich bis zur ersten Leerzeile oder Schlüsselzeile die Anzahl der Zeilen zählen bzw. markieren, aber nur in Spalte A.

    Mit dem hieraus gewonnenen Wert möchte ich im Anschluss die Range definieren die pro Spalte markiert und kopiert werden soll.

    Im Sinne von:

    Code:
    anstatt mir den gesamten Bereich auszuweisen bleibt nur die Zelle A6 markiert.. Warum?!

    Vielen Dank und frohe Ostern *wink.gif*

    Julian
     
    caspar, 25. März 2005
    #3
  4. Zellen zählen in VBA

    Hallo Julian,

    in VBA kann zu 99% auf select verzichtet werden. Mir ist nicht ganz klar was Du möchtest.
    Die erste leere Zelle in Spalte A oder
    Die letzte gefüllte Zelle in Spalte A.

    Das sind zwei völlig unterschiedliche Varianten.


    Zellen zählen in VBA [​IMG]

    Bitte keine Mail, Probleme sollten im Forum gelöst werden.
    Microsoft MVP für Excel
    Das Forum lebt auch von den Rückmeldungen.
    Betriebssystem XP Home SP2 und Excel Version 2003 SP1.
     
  5. Moin, Julian,

    bedenke bitte, dass jeder Leser nur die Informationen erhält, die Du preisgibst und aus diesen eine Lösung für ein nichtbekanntes Problem erstellen soll:

    Code:
     
  6. Hallo Hajo,

    vielleicht stelle ich noch einmal in zwei Sätzen mein Basisproblem dar:
    Ich habe eine Tabelle die in der X-Achse nach Monate sortiert ist. In der Y-Achse kann die Tabelle unterschiedliche Längen annehmen (Materialnummern). In der Fläche der Tabelle sind Planzahlen abgebildet. Diese Darstellungsform soll so aufgelöst werden, dass sie in eine DB eingelesen werden kann --> material/ Monat/ Planzahl.

    Mein Ansatz ist die Anzahl der Materialien zu berechnen und diese in ein neues Blatt zu kopieren und die jeweiligen Planzahlen und Monate daneben zu schreiben.

    Im Anhang zu dem Threat stelle ich eine beispieldatei. Solltest Du mir helfen können wäre ich extrem tief in deiner schuld...
     
    caspar, 25. März 2005
    #6
  7. OfficeUser Neuer User
    Hallo Caspar,

    warum per Makro?

     ABC
    30BezeichnungMonatAnzahl
    31Nokia 7610Jan 050
    32Nokia 810Jan 050
    33Nokia 9210iJan 050
    34Nokia 9300Jan 050
    35Nokia 9500Jan 050
    36Panasonic P341iJan 050
    37Qtek 2020Jan 050
    38Qtek 9090Jan 050
    39Samsung D500Jan 050
    40Samsung P730Jan 050
    41Samsung S341iFeb 050
    42Nokia 7610Feb 050
    43Nokia 810Feb 050
    44Nokia 9210iFeb 050
    45Nokia 9300Feb 050
    46Nokia 9500Feb 050
    47Panasonic P341iFeb 050
    48Qtek 2020Feb 050
    49Qtek 9090Feb 050
    50Samsung D500Feb 050
    51Samsung P730Feb 050
    52Samsung S341iFeb 050
    53Nokia 7610Mrz 050
    54Nokia 810Mrz 050
    55Nokia 9210iMrz 050
    56Nokia 9300Mrz 050
    57Nokia 9500Mrz 05123
    58Panasonic P341iMrz 050
    59Qtek 2020Mrz 050
    60Qtek 9090Mrz 050
    61Samsung D500Mrz 050
    62Samsung P730Mrz 050
    63Samsung S341iMrz 050
    64   
    65Von Johannes von http://www.ms-office-forum.net/forum/forumdisplay.php?s=&daysprune=&forumid=29&x=11&y=10  
    B31 : =HEUTE()-60
    C31 : =INDEX($A:$G;VERGLEICH(A31;$A:$A;0);VERGLEICH(B31;$A:$G))
    B32 : =HEUTE()-60
    C32 : =INDEX($A:$G;VERGLEICH(A32;$A:$A;0);VERGLEICH(B32;$A:$G))
    B33 : =HEUTE()-60
    C33 : =INDEX($A:$G;VERGLEICH(A33;$A:$A;0);VERGLEICH(B33;$A:$G))
    B34 : =HEUTE()-60
    C34 : =INDEX($A:$G;VERGLEICH(A34;$A:$A;0);VERGLEICH(B34;$A:$G))
    B35 : =HEUTE()-60
    C35 : =INDEX($A:$G;VERGLEICH(A35;$A:$A;0);VERGLEICH(B35;$A:$G))
    B36 : =HEUTE()-60
    C36 : =INDEX($A:$G;VERGLEICH(A36;$A:$A;0);VERGLEICH(B36;$A:$G))
    B37 : =HEUTE()-60
    C37 : =INDEX($A:$G;VERGLEICH(A37;$A:$A;0);VERGLEICH(B37;$A:$G))
    B38 : =HEUTE()-60
    C38 : =INDEX($A:$G;VERGLEICH(A38;$A:$A;0);VERGLEICH(B38;$A:$G))
    B39 : =HEUTE()-60
    C39 : =INDEX($A:$G;VERGLEICH(A39;$A:$A;0);VERGLEICH(B39;$A:$G))
    B40 : =HEUTE()-60
    C40 : =INDEX($A:$G;VERGLEICH(A40;$A:$A;0);VERGLEICH(B40;$A:$G))
    B41 : =HEUTE()-30
    C41 : =INDEX($A:$G;VERGLEICH(A41;$A:$A;0);VERGLEICH(B41;$A:$G))
    B42 : =HEUTE()-30
    C42 : =INDEX($A:$G;VERGLEICH(A42;$A:$A;0);VERGLEICH(B42;$A:$G))
    B43 : =HEUTE()-30
    C43 : =INDEX($A:$G;VERGLEICH(A43;$A:$A;0);VERGLEICH(B43;$A:$G))
    B44 : =HEUTE()-30
    C44 : =INDEX($A:$G;VERGLEICH(A44;$A:$A;0);VERGLEICH(B44;$A:$G))
    B45 : =HEUTE()-30
    C45 : =INDEX($A:$G;VERGLEICH(A45;$A:$A;0);VERGLEICH(B45;$A:$G))
    B46 : =HEUTE()-30
    C46 : =INDEX($A:$G;VERGLEICH(A46;$A:$A;0);VERGLEICH(B46;$A:$G))
    B47 : =HEUTE()-30
    C47 : =INDEX($A:$G;VERGLEICH(A47;$A:$A;0);VERGLEICH(B47;$A:$G))
    B48 : =HEUTE()-30
    C48 : =INDEX($A:$G;VERGLEICH(A48;$A:$A;0);VERGLEICH(B48;$A:$G))
    B49 : =HEUTE()-30
    C49 : =INDEX($A:$G;VERGLEICH(A49;$A:$A;0);VERGLEICH(B49;$A:$G))
    B50 : =HEUTE()-30
    C50 : =INDEX($A:$G;VERGLEICH(A50;$A:$A;0);VERGLEICH(B50;$A:$G))
    B51 : =HEUTE()-30
    C51 : =INDEX($A:$G;VERGLEICH(A51;$A:$A;0);VERGLEICH(B51;$A:$G))
    B52 : =HEUTE()-30
    C52 : =INDEX($A:$G;VERGLEICH(A52;$A:$A;0);VERGLEICH(B52;$A:$G))
    B53 : =HEUTE()
    C53 : =INDEX($A:$G;VERGLEICH(A53;$A:$A;0);VERGLEICH(B53;$A:$G))
    B54 : =HEUTE()
    C54 : =INDEX($A:$G;VERGLEICH(A54;$A:$A;0);VERGLEICH(B54;$A:$G))
    B55 : =HEUTE()
    C55 : =INDEX($A:$G;VERGLEICH(A55;$A:$A;0);VERGLEICH(B55;$A:$G))
    B56 : =HEUTE()
    C56 : =INDEX($A:$G;VERGLEICH(A56;$A:$A;0);VERGLEICH(B56;$A:$G))
    B57 : =HEUTE()
    C57 : =INDEX($A:$G;VERGLEICH(A57;$A:$A;0);VERGLEICH(B57;$A:$G))
    B58 : =HEUTE()
    C58 : =INDEX($A:$G;VERGLEICH(A58;$A:$A;0);VERGLEICH(B58;$A:$G))
    B59 : =HEUTE()
    C59 : =INDEX($A:$G;VERGLEICH(A59;$A:$A;0);VERGLEICH(B59;$A:$G))
    B60 : =HEUTE()
    C60 : =INDEX($A:$G;VERGLEICH(A60;$A:$A;0);VERGLEICH(B60;$A:$G))
    B61 : =HEUTE()
    C61 : =INDEX($A:$G;VERGLEICH(A61;$A:$A;0);VERGLEICH(B61;$A:$G))
    B62 : =HEUTE()
    C62 : =INDEX($A:$G;VERGLEICH(A62;$A:$A;0);VERGLEICH(B62;$A:$G))
    B63 : =HEUTE()
    C63 : =INDEX($A:$G;VERGLEICH(A63;$A:$A;0);VERGLEICH(B63;$A:$G))
    Diagramm - Grafik - Excel Tabellen einfach im Web darstellen
     
    Zuletzt von einem Moderator bearbeitet: 12. Januar 2021
    OfficeUser, 25. März 2005
    #7
  8. Zellen zählen in VBA

    hmmmm, das klingt zu schön um wahr zu sein... dass muss ich jetzt erst einmal verdauen! VIELEN DANK!

    woher kommen denn jetzt die werte in der spalte a und wie wird definiert wann das ender der liste erreicht ist? ich bin durch und durch verwirrt..

    julian
     
    caspar, 25. März 2005
    #8
  9. Hallo Julian,

    falls Du meinen Beitrag meinst, die Werte in Spalte A hast Du doch eingetragen. Ich bin davon ausgegangen das dies Problem nicht besteht.
    Die Tabelle ist definiert durch folgende Angabe $A$3:$G$15
    Die Artikel durch $A$3:$A$15
    Die Monate durch $A$3:$G$3

    Wobei ich sagen muß Formel sind nicht mein Hauptgebiet. Diese Formel ist wie im Beitrag geschrieben von Johannes, nur auf Deine Bedingungen angepast.

    Gruß Hajo

    Das Forum lebt auch von den Rückmeldungen.
     
Thema:

Zellen zählen in VBA

Die Seite wird geladen...
  1. Zellen zählen in VBA - Similar Threads - Zellen zählen VBA

  2. In einer Zelle Zahlen erkennen und trennen

    in Microsoft Excel Hilfe
    In einer Zelle Zahlen erkennen und trennen: Guten Tag zusammen Ich habe folgende Daten in einer Zelle und muss diese in mehrere Spalten aufteilen, insbesondere benötige ich die Zahl, die hinter dem X steht PKP210SX90AOS08...
  3. VBA Zahlen als Währung einfügen

    in Microsoft Excel Hilfe
    VBA Zahlen als Währung einfügen: Hallo Zusammen, brauche eure Hilfe Habe eine Datei im Anhang, habe ein wenig schon angefangen mit VBA weiss leider nicht mehr weiter. Ich möchte das wenn ich auf einfügen drücke das die werte...
  4. Summieren farbiger Zahlen anhand des Farbcodes ohne VBA

    in Microsoft Excel Hilfe
    Summieren farbiger Zahlen anhand des Farbcodes ohne VBA: Hallo liebes Forum, welche Formel muss ich eingeben, wenn ich farbige Ziffern (z.B. rot = Farbcode 3; grün = 4) addieren möchte. Danke im voraus für die schnelle Antwort Gruß mfkathie
  5. Komischer Zahlen in der GUI + VBA bestimmte Zellen mit gewissen Inhalt nicht löschen

    in Microsoft Excel Hilfe
    Komischer Zahlen in der GUI + VBA bestimmte Zellen mit gewissen Inhalt nicht löschen: Hallo, ich bin neu hier im Forum, also bitte ich um Verständnis, wenn dies hier nicht der richtige Platz für dieses Thema ist. Ich habe 2 Anliegen. Auf dem ersten Bild könnt ihr die besagten...
  6. VBA gefüllte Spalten/Zellen bis zur nächsten leeren Zählen

    in Microsoft Excel Hilfe
    VBA gefüllte Spalten/Zellen bis zur nächsten leeren Zählen: Hallo zusammen, ich bin neu auf dem Gebiet, habt Nachsicht. Ich habe folgendes Problem... Ich habe in Tabellenblatt 1 Zellen die beschrieben werden, diese werden über einen Button in Zeile 4...
  7. VBA Prüfen ob Zelle eine INTEGER-Zahl enthält

    in Microsoft Excel Hilfe
    VBA Prüfen ob Zelle eine INTEGER-Zahl enthält: Hallo, ich möchte ein kleines Unterprogramm verwenden, um zu prüfen ob In einer Zelle ein INTEGER-Wert steht, mit dem ich weiter rechnen kann. Dazu will ich an das sub folgende Variablen...
  8. VBA- Zellen mit 2 Bedingungen Zählen (Farbe und Text)

    in Microsoft Excel Hilfe
    VBA- Zellen mit 2 Bedingungen Zählen (Farbe und Text): Hallo zusammen, Nach mehreren Tagen Recherche und diversen Codes ausprobieren und anpassen bin ich echt am Ende und suche hier im Forum Hilfe. Zu meinem Problem: - Ich möchte eine Spalte...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden