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, 5218 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

Frage von maloh1984Microsoft Office4 Kommentare

Hallo Habe ein Problem, ein Kunde der hat Excellisten mit Makro die lassen sich öffnen aber die Buttons reagieren ...

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 ...

Neue Wissensbeiträge
E-Mail
Email-Apps und Verhalten bei Pop3
Erfahrungsbericht von kfranzk vor 12 StundenE-Mail3 Kommentare

Hallo Freunde, da mir mein diesbezüglicher Faden als gelöst markiert wurde, muss ich hier neu aufsetzen. Ich arbeite bewusst ...

Hyper-V

Optimiertes Ubuntu per Microsoft Hyper-V-Schnellerstellung verfügbar

Anleitung von Frank vor 14 StundenHyper-V

Für Microsofts Virtualisierungssoftware Hyper-V ist ab sofort auch ein optimiertes Ubuntu 18.04.1 LTS verfügbar. In der "Hyper-V-Schnellerstellung" App, die ...

Sicherheits-Tools

Trend Micro WorryFree Business Security (WFBS) 10 - neuer Patch 1470 verfügbar

Tipp von VGem-e vor 17 StundenSicherheits-Tools1 Kommentar

Servus, mal sehen, ob mit Patch 1470, zu finden unter dann die angeblich fehlerhafte Funktion, die unter W10 im ...

Server-Hardware

Lösung für Ersatz eines defekter Raid-Controllers

Anleitung von wellknown vor 1 TagServer-Hardware3 Kommentare

Hallo, da ich nichts gefunden habe und selbst eine Lösung brauchte, hier eine kleine Anleitung für alle die vor ...

Heiß diskutierte Inhalte
Windows Server
Mit der alten Domäneprofil anmelden ohne Server
gelöst Frage von SyosseWindows Server37 Kommentare

Hallo Jungs Folgendes Szenario: Ich habe bei einem sehr kleinen Unternehmen (2Personen) den Server migriert, soweit hat alles geklappt. ...

Sicherheits-Tools
Virenprogramm lässt Programme nicht starten
Frage von SurferGirlSicherheits-Tools23 Kommentare

Hallo, ich bin neu hier, ich hoffe ich habe die richtige Rubrik gewählt. Falls nicht, tut es mir leid. ...

Windows Server
Kann DNS-Einträge nicht finden
gelöst Frage von BPeterWindows Server19 Kommentare

Hallo, wenn ich folgenden Befehl absetze, bekomme ich eine Liste zurück mit allen Einträgen der DNS-Zone. Wenn ich aber ...

Windows Server
SQL Server Instanz (Eplan) auf WIN 2008 RC2 Server frisst RAM ohne Limit
Frage von derinderinderinWindows Server17 Kommentare

Hallo Zusammen, Wir haben hier einen Windows 2008 RC2 Server. Darauf läuft ein SQL Server Express 2014 Version 12.0.4232.0. ...