Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBA und Excel

Frage Microsoft Microsoft Office

Mitglied: cosmonaut

cosmonaut (Level 1) - Jetzt verbinden

29.11.2013, aktualisiert 05.12.2013, 3010 Aufrufe, 6 Kommentare

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 e20bc58436f212ab61f1e6d0c5ea0550 - Klicke auf das Bild, um es zu vergrößern Nach Spalte "Tag", "Umbruch" und "Ja" bzw. "Nein" soll ich Spalte "Verbindung" in einer Tabelle auswerten. Soll so aussehen 17fee49fd4012b8278d2aa0e9ebd3092 - Klicke auf das Bild, um es zu vergrößern

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
Mitglied: Xolger
29.11.2013 um 07:47 Uhr
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
Bitte warten ..
Mitglied: Xolger
01.12.2013 um 22:37 Uhr
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
Bitte warten ..
Mitglied: cosmonaut
02.12.2013 um 00:46 Uhr
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
Bitte warten ..
Mitglied: cosmonaut
02.12.2013 um 00:50 Uhr
##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")
Bitte warten ..
Mitglied: Xolger
LÖSUNG 02.12.2013, aktualisiert 05.12.2013
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
01.
 For i=1 to 477 do 
02.
ActiveSheet.Range("$A$1:$F$4321").AutoFilter Field:=1, Criteria1:=i 
03.
... 
04.
Next i
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
Bitte warten ..
Mitglied: cosmonaut
05.12.2013 um 18:13 Uhr
Danke Xolger,

hab so den Durchbruch geschafft, ein paar Korrekturen und Einzelheiten vornehmen, dann ist es fertig. DANKE SCHÖN!!
Bitte warten ..
Ähnliche Inhalte
Microsoft
Excel-Datei mit VBA speichern
gelöst Frage von 116408Microsoft6 Kommentare

Guten Tag Ich habe eine Excel-Datei, in der in D4 der Kundenname und in D11 das Projekt benennt wird. ...

Basic
Excel VBA enthält
Frage von AngelsBasic

Guten Tag Ich bin ganz neu in diesem Forum und hätte eine Frage. Wie kann ich bei diesem bestehenden ...

Microsoft Office
Excel VBA Wert hochzählen
gelöst Frage von Florian86Microsoft Office1 Kommentar

Hallo, ich habe im VBA Code folgendes stehen Range("E10") = Range("E10") + 1 Jetzt ist der Wert bei schon ...

Microsoft Office
Unterordner durchsuchen Excel VBA
Frage von schwalbepilotMicrosoft Office1 Kommentar

Hi, ich habe mir ein Makro gebastelt, mit dem ich Daten aus mehreren Word Tabellen auslesen kann. Das Makro ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 23 StundenWindows 102 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 1 TagInternet3 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 1 TagDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Windows Server
GPO nur für bestimmte Computer
Frage von Leo-leWindows Server13 Kommentare

Hallo Forum, gern würde ich ein Robocopy script per Bat an eine GPO hängen. Wichtig wäre aber dort der ...

Windows Server
KMS Facts for Client configuration
Frage von winlinWindows Server13 Kommentare

Hey Leute, wir haben in unserem Netz nun einen neuen KMS Server. Haben Bestands-VMs die noch nicht aktiviert sind. ...

Windows Tools
Software-Tool zum Entfernen von bösartigem Windows
Frage von emeriksWindows Tools11 Kommentare

Hi, siehe Betreff hat das jemals irgendjemand schonmal sinnvoll eingesetzt? (MRT) E.

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...