Kann man mehrere gleiche Formulare zusammen auswerten?

Hallo Bernd,



welche Kontrollkästchen verwendest du? ActiveX- oder Formular-Steuerelemente?

Könntest du eine Demomappe hochladen und den Link hier posten? Ich kann keinen deiner Fehler reproduzieren.

Durch das Kopieren, haben alle Kontrollkästchen den gleichen Namen. Wenn du sie nur brauchst für die Anzeige macht das nichts, aber wenn du sie per VBA auswerten willst.

Aber bei mir verdoppelt sich nichts, wenn die Zeilenhöhe sich verändert und die Zeilen behalten auch beim Filtern ihre Höhe.

Wenn du nur eine Kontrolle brauchst, kannst du die letzte Spalte auch mit Wingdings formatieren und ein "ü" reinschreiben, das macht einen Haken in die Zelle. Oder du formatierst sie "["@"]" und schreibst ein "x" ein, das sieht dann so aus: [x]



Mit freundlichen Grüßen

Claus

Habe das gleiche Problem nach dem Update auf Office 2010 - brauche das wöchentlich, da ich aus einer excel-Tabelle Daten auswerten muss und diese an einen externen Dienstleister weiter geben muss, der nur dbf´s verarbeitet

Hallo Delilah,

ein Tabellenblatt hat 17.179.869.184 Zellen und du machst dir das Leben schwer, indem du mehrere Werte in eine Zelle bringst. Folgende Prozedur schreibt dir die Schlagworte als Unikate mit der Anzahl ihres Vorkommens in D1:E?:

Sub AnzWort()

Dim myRng As Range

Dim LRow As Long, i As Long, n As Long

Dim varData As Variant, varTmp As Variant, varOut() As Variant

Dim myDic As Object

Dim strData As String

With ActiveSheet

   LRow = .Cells(.Rows.Count, 1).End(xlUp).Row

   strData = Application.TextJoin(", ", 1, Range("B2:B" & LRow))

   varData = Split(strData, ", ")

   Set myDic = CreateObject("Scripting.Dictionary")

   For i = LBound(varData) To UBound(varData)

      myDic(varData(i)) = varData(i)

   Next

   varTmp = myDic.items

   ReDim varOut(1 To UBound(varTmp) + 1, 1 To 2)

   For i = LBound(varTmp) To UBound(varTmp)

      varOut(i + 1, 1) = varTmp(i)

      varOut(i + 1, 2) = Application.CountIf(.Range("B2:B" & LRow), "*" & varTmp(i) & "*")

   Next

   .Range("D1").Resize(UBound(varOut), 2) = varOut

End With

End Sub

Filtern kannst du, indem du den Textfilter verwendest mit "Enthält", "Beginnt mit" oder, oder.

Claus

es geht um dieses Formular, wie kann ich hier gleich alles anzeigen?

um dieses Formular geht es mir, hier möchte ich gleich alles angezeigt bekommen, wie es früher war!