Excel Frage

[Santiago82]

@lx99

Beispiel für Indikatoren:

- Anzahl an Posts im ASB
- Anzahl an Besuchen pro Tag im ASB

Weiter unten im Excel-sheet möchte ich dann jene "Indikatoren" automatisch gelistet haben, für die in der Nebenspalte ein Wert eingetragen wurde.

Danke!

bearbeitet 7. Juni 2017 von Santiago82

[lx99]

Ich hoffe, ich interpretiere deine Anforderung richtig...

Im Beispielcode ist rngSource der Bereich im Tabellenblatt, der auf Eingaben überwacht werden soll. Ändert sich ein Wert im überwachten Bereich, wird der Zielbereich (rngTarget) gelöscht und neu aufgebaut.

Der folgende Code muss im VBA Editor beim zu überwachenden Tabellenblatt eingefügt werden (vorher natürlich Parameter anpassen):

Option Explicit

Dim rngSource As Range
Dim rngTarget As Range

Private Sub Worksheet_Change(ByVal Target As Range)

Set rngSource = Range("B1:B10")
Set rngTarget = Range("A21:A30")

If Not Intersect(Target, rngSource) Is Nothing Then
    Call genList
End If

End Sub

Sub genList()

Dim intLnSource As Integer
Dim intLnTarget As Integer

'Daten aus Zielbereich löschen
rngTarget.Cells.Clear

'Zielzeile setzen
intLnTarget = rngTarget.Row

'Alle Zeilen aus Quellbereich durchlaufen und auf Inhalt in Spalte B prüfen.
'Wenn Inhalt gefunden wird, wird der Wert aus Spalte A in die nächste freie
'Zeile des Zielbereichs geschrieben.
For intLnSource = rngSource.Row To rngSource.Row + rngSource.Rows.Count - 1
    If Range("B" & intLnSource).Value <> "" Then
        Range("A" & intLnTarget).Value = Range("A" & intLnSource).Value
        intLnTarget = intLnTarget + 1
    End If
Next intLnSource

End Sub

 

[Santiago82]

Wow. Danke. Werd ich mir gleich näher anschauen @lx99

Ich hab das inzwischen so probiert:

Zitat

Sub test_eins()

    Dim Zeile As Long, neue_Zeile As Long

    For Zeile = 1 To 35
         If Cells(Zeile, 1).Value <> "" Then
            If Cells(Zeile, 2).Value <> "" Or Cells(Zeile, 3).Value <> "" Then
                neue_Zeile = neue_Zeile + 1
                Cells(neue_Zeile, 6).Value = Cells(Zeile, 1).Value
            End If
        End If
    Next
End Sub

Wie würde ich hier die Position verändern, an der die generierte Liste ausgegeben wird? Ich schaff es nicht, im Code eine andere Zeile zu definieren.

[lx99]

Santiago82 schrieb vor 37 Minuten:

Wie würde ich hier die Position verändern, an der die generierte Liste ausgegeben wird? Ich schaff es nicht, im Code eine andere Zeile zu definieren.

Indem du vor der For...Next Schleife der Variablen neue_Zeile einen Startwert zuweist. Wenn du die generierten Daten ab Zeile 40 ausgeben willst, muss neue_Zeile den Startwert 39 haben.

Also einfach "neue_Zeile = 39"

[Santiago82]

Perfekt @lx99 DANKE!

[Phil96]

lois schrieb vor 21 Minuten:

Will einen Zeitstrahl in Kalenderform erstellen. Nach dem Motto der Gegenstand wurde von Jänner 2014 bis März 2015 ausgeliehen. Dieser Gegenstand von Februar 2015 bis April 2015 usw

So dass man relativ gut sieht wenn sich eine Perosn zwei Gegenstände gleichzeitig ausgeliehen hat.

Zeitstrahl.xlsx

[Splinta]

Bevor ich da ewig rumprobier, meine Frage an euch:

 

Tabelle:

Spalte A Spalte B

20          BLAU
20          BLAU
20          BLAU
23          ROT
23          ROT
27          ROT
29         BLAU
29         BLAU
11         ROT
12         BLAU
21         ROT

 

Ich hätte gerne per Formel wie oft der Wert BLAU vorkommt, ABER wenn Blau zB bei Spalte A und "20" drei Mal vorkommt, sollte es nur einmal zählen.

Also in dem Fall wären es 3x BLAU( bei 20,29 und 12)

 

Irgendwas mit Häufigkeit, Zählenwenn, Summenprodukt oder so

Und wenn es nicht sein muss, dann ohne Matrixformel bzw. indirekt.

 

 

 

 

[grufi]

ich würd die Summeüber eine Hilfsspalte machen wo beide Bedingungen zusammengefasst werden

oder noch einfacher: eine Pivot

[Splinta]

grufi schrieb vor 7 Minuten:

ich würd die Summeüber eine Hilfsspalte machen wo beide Bedingungen zusammengefasst werden

oder noch einfacher: eine Pivot

Pivot ist keine Option, nachdem sich die Liste öfter ändert und das alles automatisiert werden soll.

In einer anderen Tabelle hab ich dann

 

BLAU:

ROT:

 

Und brauch eben dort die Anzahl.

[Splinta]

Splinta schrieb am ‎10‎.‎10‎.‎2017 um 11:56 :

Bevor ich da ewig rumprobier, meine Frage an euch:

 

Tabelle:

Spalte A Spalte B

20          BLAU
20          BLAU
20          BLAU
23          ROT
23          ROT
27          ROT
29         BLAU
29         BLAU
11         ROT
12         BLAU
21         ROT

 

Ich hätte gerne per Formel wie oft der Wert BLAU vorkommt, ABER wenn Blau zB bei Spalte A und "20" drei Mal vorkommt, sollte es nur einmal zählen.

Also in dem Fall wären es 3x BLAU( bei 20,29 und 12)

 

Irgendwas mit Häufigkeit, Zählenwenn, Summenprodukt oder so

Und wenn es nicht sein muss, dann ohne Matrixformel bzw. indirekt.

 

 

 

 

Push

[Indurus]

Splinta schrieb vor 8 Minuten:

Push

Sind die möglichen Ausprägungen in A und B vorgegeben? Wieviele verschiedene Zahlen können in A und wieviele Farben in B stehen?

[Splinta]

Indurus schrieb vor 15 Minuten:

Sind die möglichen Ausprägungen in A und B vorgegeben? Wieviele verschiedene Zahlen können in A und wieviele Farben in B stehen?

Nein sind nicht vorgegeben.

In Spalte A können Werte von, ich sag Mal, 1-5000 stehen, inkl. Kommazahlen. In Spalte B etwa 15 verschiedene.

bearbeitet 11. Oktober 2017 von Splinta

[lx99]

Ohne Matrixformel wirst du das wohl nicht hinkriegen. Beispiel für "BLAU":

=SUMMENPRODUKT((B$1:B$99="BLAU")/(ZÄHLENWENNS(A$1:A$99;A$1:A$99;B$1:B$99;B$1:B$99)+(B$1:B$99<>"BLAU")))

 

[Indurus]

Splinta schrieb vor 24 Minuten:

Nein sind nicht vorgegeben.

In Spalte A können Werte von, ich sag Mal, 1-5000 stehen, inkl. Kommazahlen. In Spalte B etwa 15 verschiedene.

Ich würde es so machen:

In Formeln:

 

In Spalte G musst du dann halt dann händisch reinschreiben welche Farbe zu zählen möchtest, kannst aber genauso die Formel in H nach unten ziehen!

Wenn die Zahl der Zeilen variable werden sollte, wirst du um Indirekt nicht herumkommen fürchte ich.

bearbeitet 11. Oktober 2017 von Indurus

[Splinta]

lx99 schrieb vor 16 Minuten:

Ohne Matrixformel wirst du das wohl nicht hinkriegen. Beispiel für "BLAU":

=SUMMENPRODUKT((B$1:B$99="BLAU")/(ZÄHLENWENNS(A$1:A$99;A$1:A$99;B$1:B$99;B$1:B$99)+(B$1:B$99<>"BLAU")))

 

Danke, funktioniert einwandfrei. Die Matrix Formeln fordern nur meinen PC ziemlich. Die Liste hat über 3000 Zeilen...

Indurus schrieb vor 2 Minuten:

Ich würde es so machen:

In Formeln:

 

In Spalte G musst du dann halt dann händisch reinschreiben welche Farbe zu zählen möchtest, kannst aber genauso die Formel in H nach unten ziehen!

Wenn die Zahl der Zeilen variable werden sollte, wirst du um Indirekt nicht herumkommen fürchte ich.

Zwar nicht so elegant wie die andere Formel, aber eventuell probier ich das auch einmal, vor allem das es wohl ressourcenschonender ist.

 

Danke euch beiden!