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

Excel Makro erstellen zur Sortierung

Mitglied: Freundeskreis81

Freundeskreis81 (Level 1) - Jetzt verbinden

11.08.2011 um 09:19 Uhr, 5288 Aufrufe, 5 Kommentare

Hallo Zusammen,

ich habe folgendes Problem und bin gänzlich Überfordert damit, wäre Super wenn Ihr mir helfen könntet da ich mit Makros definitiv nichts zu tun habe:

Folgendes Szenario:

Ich habe eine Excel mit der Mappe "Zentral". Diese beinhaltet div. Infos über verschiedene Assets von PC´s.
PC Nummer, SN Nummer, Standort etc.

Ich benötige jetzt allerdings ein Makro das mir die Standorte sortiert und Automatisch nach Namen des Standortes neue Mappen Anlegt.
Die Design der Zentralen Mappe sollte allerdings übernommen werden.

Daraufhin sollte das Makro mir die unterschiedlichen Mappen einzeln als XLS Datei unter einem bestimmten Pfad speichern.

Ich hoffe ich habe mich klar und deutlich ausgedrückt?! ;)

Über Hilfe wäre ich echt Super erfreut.
Vielen Dank.
Mitglied: mathe172
11.08.2011 um 17:43 Uhr
Hallo,

vielleicht könntest du mal versuchen, mit Makro aufzeichnen einige Code-Fragmente zu bekommen, die von dir (oder wahrscheinlich auch jemandem hier im Forum ) zusammengesetzt werden können.

Ich würde zum Beispiel etwa so vorgehen:
  • Zeile für Zeile abarbeiten und in eine Tabelle kopieren, die als Namen den Standort hat
      • Existiert so eine Tabelle nicht, erstelle eine neue und kopiere die Zeile dahin (wenn das Design übernommen werden soll, versuch mal herauszufinden, was dir Excel für einen Code ausspuckt, wenn du die Zeile markierst und mit Formatieung irgendwo wieder einfügst)
  • Sind alle Zeilen durchgearbeitet, müssen die Tabellen nur noch als einzellne Mappe gespeichert werden. (Vielleicht mal schauen wie man Tabellen in eine andere Arbeitsmappe verschiebt )

Ich hoffe ich konnte dir (und anderen ) einen Denkanstoss geben. Vielleicht bastel ich ja (später) noch ein bisschen Code zusammen.

MfG,
Mathe172
Bitte warten ..
Mitglied: Freundeskreis81
12.08.2011 um 09:18 Uhr
Sub Makro2()
'
' Makro2 Makro
'

'
ActiveSheet.Range("$A$11:$G$33").AutoFilter Field:=6, Criteria1:= _
"Moekmuehl"
Sheets("Zentral").Select
Sheets("Zentral").Copy After:=Sheets(1)
Sheets("Zentral (2)").Select
Range("F26").Select
ActiveCell.FormulaR1C1 = "Moekmuehl"
With ActiveCell.Characters(Start:=1, Length:=9).Font
.Name = "Calibri"
.FontStyle = "Standard"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("F35").Select
Sheets("Zentral (2)").Select
Sheets("Zentral (2)").Name = "Moekmuehl"
Range("B63").Select
Sheets("Zentral").Select
ActiveSheet.Range("$A$11:$G$33").AutoFilter Field:=6, Criteria1:="Zentral"
Range("F35").Select
End Sub


So in etwa sollte es aussehen. Nur das ich mehrer Standorte habe und ich eigentlich möchte das Excel diese Automatisch erkennt und dem Standort entsprechend dann eben die betroffenen Geräte in den dazugehörigen Standort übernimmt und dafür aber eine neue Mappe erstellt die auch gleich dem Standort entsprechend benamst werden soll...

Ich glaube ich möchte zu viel ;)

VG
Freundeskreis
Bitte warten ..
Mitglied: mathe172
12.08.2011 um 14:55 Uhr
Hallo,

versuch mal diesen Code:
01.
Public Sub Sort()
02.
    Dim Row As Integer, Row2 As Integer, SortCriterium As String
03.
    Row = 1
04.
    Sheets("Zentral").Activate
05.
    Do Until Cells(Row, 1).Value = ""
06.
        SortCriterium = Cells(Row, 3)
07.
        If Not SheetExists(SortCriterium) Then
08.
            Sheets.Add After:=Sheets(Sheets.Count)
09.
            Sheets(Sheets.Count).Name = SortCriterium
10.
        End If
11.
        Sheets("Zentral").Activate
12.
        Rows(Row & ":" & Row).Select
13.
        Selection.Copy
14.
        Sheets(SortCriterium).Activate
15.
        Row2 = 1
16.
        Do Until Cells(Row2, 1) = ""
17.
            Row2 = Row2 + 1
18.
        Loop
19.
        Rows(Row2 & ":" & Row2).Select
20.
        ActiveSheet.Paste
21.
        Sheets("Zentral").Activate
22.
        Row = Row + 1
23.
    Loop
24.
    Dim objWorksheet As Worksheet
25.
    For Each objWorksheet In ActiveWorkbook.Worksheets
26.
        If objWorksheet.Name <> "Zentral" Then
27.
            objWorksheet.Select
28.
            ActiveWorkbook.Windows(1).SelectedSheets.Copy
29.
            Application.DisplayAlerts = False
30.
            ActiveWorkbook.SaveAs objWorksheet.Name
31.
            Application.DisplayAlerts = True
32.
            ActiveWorkbook.Close
33.
        End If
34.
    Next
35.
End Sub
36.

37.
Public Function SheetExists(Worksheetname As String) As Boolean
38.
Dim objWorksheet As Worksheet
39.
  For Each objWorksheet In ActiveWorkbook.Worksheets
40.
    If objWorksheet.Name = Worksheetname Then SheetExists = True: Exit For
41.
  Next
42.
End Function
Wenn was nicht passt, meld dich einfach

MfG,
Mathe172
Bitte warten ..
Mitglied: Freundeskreis81
15.08.2011 um 13:04 Uhr
erst vielen Dank für Deine Mühe...

leider tut sich da ger nichts wenn ich das Makro ausführe..??! Nicht mal eine Meldung.
Muss ich was beachten?!

gruß
Freundeskreis81
Bitte warten ..
Mitglied: mathe172
15.08.2011 um 13:56 Uhr
Hallo,

gibt es wirklich keine neuen Tabellen und Dateien?
In welchen Spalten sind denn die Daten? Das obige Script verarbeitet immer ganze Zeilen, aber nur solange, bis eine Zeile auftaucht, bei der die erste Spalte leer ist.

MfG,
Mathe172
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Excel Makro VBA Sortierung nach Spaltennamen

gelöst Frage von easy4breezyMicrosoft Office3 Kommentare

Hi Leute, ich habe mich hier schon eingelesen und auch im Internet, aber irgendwie komme ich zu keiner Lösung ...

Microsoft Office

Excel Sortierung

Frage von MasterSchlumpfMicrosoft Office2 Kommentare

Hallo zusammen, ich habe eine Excel-Frage. Wenn ich folgende Tabelle sortieren möchte, erscheint nicht das gewünschte Ergebnis: Original: A ...

Microsoft Office

Excel-Makro

gelöst Frage von yuki13Microsoft Office7 Kommentare

Hallo Zusammen!! :-) Ich bin nicht so fit in Excel Makros und wollte mich hier erkundigen, ob mir jemand ...

VB for Applications

Excel VBA Sortierung Automatisieren

Frage von chaos2goVB for Applications3 Kommentare

Hallo Leute, ich erstelle jeden Monat User Reports , den dump bekomme ich als xlsx file . Frage/Problem Die ...

Neue Wissensbeiträge
Internet
Copyright-Reform: Upload-Filter
Information von Frank vor 15 StundenInternet

Hallo, viele Menschen reden aktuell von Upload-Filtern. Sie reden darüber, als wären es eine Selbstverständlichkeit, das Upload-Filter die Seitenbetreiber ...

Google Android

Blokada: Tracking und Werbung unter Android unterbinden

Information von AnkhMorpork vor 16 StundenGoogle Android1 Kommentar

In Ergänzung zu meinem vorherigen Beitrag: Blokada efficiently blocks ads, tracking and malware. It saves your data plan, makes ...

Google Android
Facebooks unsichtbare Datensammlung
Information von AnkhMorpork vor 17 StundenGoogle Android1 Kommentar

Rund 30 Prozent aller Apps im Play-Store nehmen Kontakt zu Facebook auf, sobald man sie startet. So erfährt der ...

Exchange Server

Exchange 2010 bis 2019 Sicherheitslücke durch CU RU schließen

Information von sabines vor 20 StundenExchange Server

Für die hier: und hier: besprochene Sicherheitslücke ist ein Patch für Microsoft Exchange Server 2010 - 2019 verfügbar. RU ...

Heiß diskutierte Inhalte
Windows 10
Windows Update funktioniert nicht - Keine Verbindung mit dem Updatedienst
gelöst Frage von anveWindows 1030 Kommentare

Hallo, ich kann schon länger keine Updates mehr machen. Wenn ich auf Update suchen gehe, dann schreibt er folgendes: ...

LAN, WAN, Wireless
NETBEUI unter Windows 10
Frage von certifiedit.netLAN, WAN, Wireless26 Kommentare

Guten Abend, wir stehen gerade vor dem Rästel, warum man in einer Industriemaschine (wert gut 6-stellig, paar mal vorhanden) ...

Hardware
Was passiert wenn ein Server zu heiß wird?
Frage von LohrakHardware21 Kommentare

Hallo Sollte ein Server zu heiß werden, da z.B ein Lüfter ausfällt, was würde passieren? Wie meldet sich der ...

Internet
EU-Gremien einigen sich auf die schärfste Form von Upload-Filter und Leistungsschutzrecht
Information von FrankInternet17 Kommentare

Nun ist es . Die Verlage, die in der Vergangenheit das Internet verschlafen hatten und kurz vor ihrer Auflösung ...