6
VBA und Excel
Ich habe eine "Aufgabe" zum Thema VBA programmieren. Dazu habe ich eine Exceltabelle, - dessen Inhalt ich nach bestimmten Kriterien sortiert - die ich auswerten und in einer Tabelle ausgeben soll. Kennt sich jemand damit aus? Ich habe so viel Literatur und Internetrecherche hinter mir, da sind viele interessante Dinge dabei, aber nicht wirklich etwas, was mir mit genau dieser Sache weiterhilft (bei meinem letzten Versuch ist Excel ganz abgestürzt, zwei Mal). Brauch ein bisschen Hilfe und Unterstützung dabei, wäre super wenn sich jemand damit auskennt und mir helfen könnte 
Die Tabelle sieht so aus
Nach Spalte "Tag", "Umbruch" und "Ja" bzw. "Nein" soll ich Spalte "Verbindung" in einer Tabelle auswerten. Soll so aussehen 
Nur, wie mache ich das mit VBA und Makros? Mir fehlt so ein wenig die zündende Idee, danach komme ich sicher zurecht, aber aller Anfang ist schwer
Die Tabelle sieht so aus
Nur, wie mache ich das mit VBA und Makros? Mir fehlt so ein wenig die zündende Idee, danach komme ich sicher zurecht, aber aller Anfang ist schwer
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 223219
Url: https://administrator.de/contentid/223219
Printed on: April 23, 2024 at 19:04 o'clock
6 Comments
Latest comment
Hallo,
mit Excel und VBA kann man viel machen, Sortieren geht über eigene Algorithmen oder mit Excelfunktionen.
Wenn Du ein spezielles Problem hast benötigen wir aber mehr Informationen.
Excelversion
Beispieldaten
bzw. eine Beschreibung (Spalte A sortieren und mit 1 addieren in eine neue Spalte eintragen etc.)
Gruß
Xolger
mit Excel und VBA kann man viel machen, Sortieren geht über eigene Algorithmen oder mit Excelfunktionen.
Wenn Du ein spezielles Problem hast benötigen wir aber mehr Informationen.
Excelversion
Beispieldaten
bzw. eine Beschreibung (Spalte A sortieren und mit 1 addieren in eine neue Spalte eintragen etc.)
Gruß
Xolger
Hallo Cosmo,
so richtig sehe ich den Zusammenhang zwischen den beiden Tabellen nicht.
Was in Tabelle 2 soll den aus Tabelle 1 erzeugt werden?
Gruß
Xolger
so richtig sehe ich den Zusammenhang zwischen den beiden Tabellen nicht.
Was in Tabelle 2 soll den aus Tabelle 1 erzeugt werden?
Gruß
Xolger
Hallo Xolger,
also mit Hilfe des Makroaufzeichners habe ich einiges verstanden (hab viel zu kompliziert gedacht). Setze ich die Filter richtig und summiere in die zweite Tabelle (s. zweite Tabelle "C4") die "Verbindungen" daraus, spuckt er mir folgendes aus - als Beispiel für Umbruch (sollte eigentlich auch Verbindung heißen) Datum 1 ("
Sub Makro1()
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=1, Criteria1:="477"
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=3, Criteria1:= _
"0"
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=5, Criteria1:="100"
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=2, Criteria1:="=30913" _
, Operator:=xlOr, Criteria2:="=47731"
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=6, Criteria1:= _
xlFilterThisQuarter, Operator:=xlFilterDynamic
Sheets("Tabelle2").Select
Range("C4").Select
ActiveCell.FormulaR1C1 = "=SUM(Tabelle1!D[4])"
End Sub
Funktioniert so auch, bin mir sicher das es kürzer und kompakter geht. Beim ausprobieren der "Verschönerung" sind mir doch noch einige Fehler unterlaufen auf dessen Lösung ich noch nicht komme.
Ich soll also die Tabelle1 filtern und sortieren und in Tabelle2 (aus Tabelle1 entnommen) die Summe der sich aus diesen Filtern ergebenden Zahlen bilden. Ich hoffe das ist einigermaßen verständlich formuliert
also mit Hilfe des Makroaufzeichners habe ich einiges verstanden (hab viel zu kompliziert gedacht). Setze ich die Filter richtig und summiere in die zweite Tabelle (s. zweite Tabelle "C4") die "Verbindungen" daraus, spuckt er mir folgendes aus - als Beispiel für Umbruch (sollte eigentlich auch Verbindung heißen) Datum 1 ("
Sub Makro1()
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=1, Criteria1:="477"
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=3, Criteria1:= _
"0"
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=5, Criteria1:="100"
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=2, Criteria1:="=30913" _
, Operator:=xlOr, Criteria2:="=47731"
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=6, Criteria1:= _
xlFilterThisQuarter, Operator:=xlFilterDynamic
Sheets("Tabelle2").Select
Range("C4").Select
ActiveCell.FormulaR1C1 = "=SUM(Tabelle1!D[4])"
End Sub
Funktioniert so auch, bin mir sicher das es kürzer und kompakter geht. Beim ausprobieren der "Verschönerung" sind mir doch noch einige Fehler unterlaufen auf dessen Lösung ich noch nicht komme.
Ich soll also die Tabelle1 filtern und sortieren und in Tabelle2 (aus Tabelle1 entnommen) die Summe der sich aus diesen Filtern ergebenden Zahlen bilden. Ich hoffe das ist einigermaßen verständlich formuliert
##edit:
Setze ich die Filter richtig und summiere in die zweite Tabelle (s. zweite Tabelle "C4") die "Verbindungen" daraus, spuckt er mir folgendes aus - als Beispiel für Umbruch (sollte eigentlich auch Verbindung heißen) Datum 1 ("C4")
Setze ich die Filter richtig und summiere in die zweite Tabelle (s. zweite Tabelle "C4") die "Verbindungen" daraus, spuckt er mir folgendes aus - als Beispiel für Umbruch (sollte eigentlich auch Verbindung heißen) Datum 1 ("C4")
Hallo Cosmo,
ich weiß immer noch nicht so richtig worauf du hinaus willst, aber egal.
Mal so allgemein:
Was du mit dem Makrorecorder aufzeichnest, kannst du natürlich auch editieren und als Grundlage für eigene Experimente nutzen.
So wäre es möglich:
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=1, Criteria1:="477"
die Wert durch eine Variable zu ersetzen und dann automatisch verschiede Variablen ggf. nacheinander zu filtern.
Z.B. ein
Ich denke du verstehst worauf ich hinaus will.
So kann man viel in Excel bewerkstelligen.
Musst halt nur schauen wie du die Schleifen anordnest und die Ausgabe entsprechend unterbringst.
Z.b. für jede Variable ein eigenes Tabellenblatt.
Gruß
Xolger
ich weiß immer noch nicht so richtig worauf du hinaus willst, aber egal.
Mal so allgemein:
Was du mit dem Makrorecorder aufzeichnest, kannst du natürlich auch editieren und als Grundlage für eigene Experimente nutzen.
So wäre es möglich:
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=1, Criteria1:="477"
die Wert durch eine Variable zu ersetzen und dann automatisch verschiede Variablen ggf. nacheinander zu filtern.
Z.B. ein
For i=1 to 477 do
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=1, Criteria1:=i
...
Next iIch denke du verstehst worauf ich hinaus will.
So kann man viel in Excel bewerkstelligen.
Musst halt nur schauen wie du die Schleifen anordnest und die Ausgabe entsprechend unterbringst.
Z.b. für jede Variable ein eigenes Tabellenblatt.
Gruß
Xolger
Danke Xolger,
hab so den Durchbruch geschafft, ein paar Korrekturen und Einzelheiten vornehmen, dann ist es fertig. DANKE SCHÖN!!
hab so den Durchbruch geschafft, ein paar Korrekturen und Einzelheiten vornehmen, dann ist es fertig. DANKE SCHÖN!!
