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, 5189 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 Makro PDF erstellen

Frage von Chrigi83Microsoft Office1 Kommentar

Hallo zusammen Hab ein kleines Projekt in dem ich gerne ein PDF aus einem Excel drucken möchte mit dem ...

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

Entwicklung

Makro erstellen

gelöst Frage von Questionmark93Entwicklung5 Kommentare

Hay Leute, Ich wollte mal in die Runde fragen, ob sich jemand auskennt was das Thema Makros betrifft Und ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 18 StundenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 1 TagRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 1 TagSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 1 TagWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Sicherheit
Verbindliche Zustellung per E-Mail?
Frage von ahussainSicherheit18 Kommentare

Hallo allerseits, ein Kunde von mir nutzt intensiv Fax. Hauptgrund: zusammen mit einer Empfangsbestätigung ist eine verbindliche Zustellung gewährleistet. ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk13 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...

SAN, NAS, DAS
Entscheidung SAN Dell oder HP
Frage von VincorSAN, NAS, DAS13 Kommentare

Hallo, wir wollen uns für unsere Hyper V Umgebung eine neue SAN Anschaffen. Es laufen 30 VM's darunter, DC; ...