Bitte um Hilfe

[Kuwer]

Hallo Franz,

so vielleicht?


  Blöcke zählen.xlsm (Größe: 15,02 KB / Downloads: 8)

Im VBA-Modul Tabelle1 steht dieses Ereignismakro:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim rngEingaben As Range
 Dim rngBlock As Range
 Dim rngSpalte As Range
 
 If Not Application.Intersect(Columns("D:I"), Target.Cells(1)) Is Nothing Then
   On Error Resume Next
   Application.EnableEvents = False
   For Each rngSpalte In Columns("D:I")
     rngSpalte.Offset(, 7).SpecialCells(xlCellTypeConstants) = ""
     For Each rngBlock In rngSpalte.SpecialCells(xlCellTypeConstants).Areas
       rngSpalte.Offset(, 7).Cells(Rows.Count).End(xlUp).Offset(1).Value = rngBlock.Rows.Count
     Next rngBlock
   Next rngSpalte
   Application.EnableEvents = True
   On Error GoTo 0
 End If
End Sub

Gruß Uwe

[Franz Nimpfer]

Hallo Uwe,

pfffff Sensation ...... unpackbar was Ihr und Excel könnt..... (bin offenbar noch in Steinzeit .
Eigentlich genau so  ...nur das ich das Ergebnis sozusagen in der selben Zeile parallel stehen haben müsste.. ich schicke ein Bild dazu wie das bei mir aussieht (Händisch eingegebn ) ......nein doch nicht..... keine Ahnung wie ich da Bild hinzufüge kann ...... ((((   Bei Bild hinzufügen werde ich gefragt nach Url .....  

Also dann versuch ich es schriftlich.
Wenn zb in Spalte D 3 Einser stehen.... (in Zeile 4-6) müsste in Spalte K eine 3 stehen  in der Zeile  6...

Aber wie auch immer DANE DANKE DANKE......
Denn ich glaube ich bekomme es vieleicht auch mit dieser Datei hin die du mir geschickt hast ...... Einfach ein HAMMER........ !!!!!!!!!! Ich erspare mir damit unsagbar viel Arbeit

glg Franz Nimpfer

[Kuwer]

Hallo Franz,

Eigentlich genau so  ...nur das ich das Ergebnis sozusagen in der selben Zeile parallel stehen haben müsste.. i
Wenn zb in Spalte D 3 Einser stehen.... (in Zeile 4-6) müsste in Spalte K eine 3 stehen  in der Zeile  6...

dann so:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rngEingaben As Range
  Dim rngBlock As Range
  Dim rngSpalte As Range
  
  If Not Application.Intersect(Columns("D:I"), Target.Cells(1)) Is Nothing Then
    On Error Resume Next
    Application.EnableEvents = False
    For Each rngSpalte In Columns("D:I")
      rngSpalte.Offset(, 7).SpecialCells(xlCellTypeConstants) = ""
      For Each rngBlock In rngSpalte.SpecialCells(xlCellTypeConstants).Areas
        rngBlock.Offset(rngBlock.Rows.Count - 1, 7).Resize(1).Value = rngBlock.Rows.Count
      Next rngBlock
    Next rngSpalte
    Application.EnableEvents = True
    On Error GoTo 0
  End If
End Sub

Gruß Uwe

[Franz Nimpfer]

...... weiß ich nicht...... vorher hab ich einfach deine Excel Tabelle aufgemacht..... wie man Macros einfügt weiß ich noch nicht gut. Hab vorher nur geschafft (erster Versuch im Leben) das ich ein Macro irgendwie in Excel bekommen habe) ......
Du ... aber allein mit der ersten Tabelle die du mir geschickt hast bin ich schon extem happy !!!! Ich schau gerade wie ich es auch so verwenden kann.

Bitte sag mir wie ich mich revanchieren kann !!!!!!!!!!!!! Ich hab sooo Freude !!!!!!!!!!

[Franz Nimpfer]

Lieber Klaus Dieter.....
auch dir ein riesen Dankeschön !!!!!!!!

Uwe hat mir zwischenzeitlich so eine Excel Datei geschickt.

Liebe Leute hier......... IHR HABT MIR EXTREM geholfen !!!!!!!!!!!!!!!!!!

glg Franz Nimpfer

[Franz Nimpfer]

Zu früh gefreut......
das Macro tut nur was man ihm sagt, wenn die zählbaren einser Blöcke händisch eingegeben werden. 
Da sich die einser aber wegen einer Formel dort eintragen, ignoriert mich das MAcro

[steve1da]

Hola,

und welche Formel ist das?

Gruß,
steve1da

[Franz Nimpfer]

Diese zb:

=WENN(ODER(A47=2;A47=4;A47=6;);1;"")

Und solche gibt es dann mehrere um die einser in die Felder D-I ein zu tragen.

Da ich mich so wenig auskenne, habe ich das nicht dazu geschrieben..... ich dachte mir..... da steht ein einser...fertig.
Natürlich war mir nicht klar das sich das auf ein Macro auswirkt.
lg

[Klaus-Dieter]

Hallo Franz,

das hat jetzt nichts mit deinem Problem zu tun, aber die Formel: =WENN(ODER(A47=2;A47=4;A47=6;);1;"")  solltest du lieber so schreiben: =WENN(ODER(A47=2;A47=4;A47=6;);1;0). Sonst vermischt du in einer Spalte Zahlen und Texte, das ist keine saubere Arbeitsweise.

[Franz Nimpfer]

Das hatte ich so..... nur weil ich eben die einser Blöcke händisch ausfüllen muss habe ich den 0er elliminiert. das es übersichtlicher. Dann seh ich die einserblöcke deutlich. Wenn dazwischen null steht ist es weniger deutlich gewesen..