Makro zum sortieren,addieren und Anzahl ermitteln

Bild

Betrifft: Makro zum sortieren,addieren und Anzahl ermitteln
von: artur
Geschrieben am: 16.03.2005 12:42:47
Hallo alle zusammen,
habe ein grosses Problem:
Ich importier ein Excel Blatt aus einem anderen Programm. Nun brauche ich ein Makro welches mir die Arbeit erleichtert.
Dieses importierte Blatt hat verbundene Zeile, diese sollen aufgelöst werden.
Es soll nach einer bestimmten Spalte sortiert und die Zeilen evtl. auf Standardgröße gebracht werden.
Schließlich müsse die Anzahl der gleichen Daten ermittelt werden und die dazugehörigen Daten addiert werden.
Am besten schaut ihr euch das Blatt mal an.
https://www.herber.de/bbs/user/19734.xls

MFG
Artur

Bild

Betrifft: AW: Makro zum sortieren,addieren und Anzahl ermitteln
von: Luc :-?
Geschrieben am: 16.03.2005 14:14:52
Hallo Artur,
wenn die Firma keinen Auftrag an einen VB-Freelancer vergeben will, solltest du schnellstens damit beginnen, VBA zu erlernen, um dir das Berufsleben etwas zu erleichtern. Dabei fängt man natürlich klein an. Das hier ist ein richtiges Projekt, keine kleine Hilfesache, und kostet viele Stunden Arbeit (unbezahlt!). Da kannst du doch nicht wirklich ernsthaft Hilfe von uns erwarten. Wenn du das selbst umsetzt und dann an der einen oder anderen Stelle nicht weiterkommst, kannst du hier gerne wieder nachfragen.
mfG Luc :-?
Bild

Betrifft: AW: Makro zum sortieren,addieren und Anzahl ermitteln
von: Harald E
Geschrieben am: 16.03.2005 14:21:00
Hallo Artur,
da gibts nur eins.
Schau dir deine Liste an, notiere dir schrittweise, was zu tun ist und dann startest Du den Makro-Rekorder und führst diese Schritte durch.(Ggf. mit einer Testdatei)
Das Makro dürfte dann deine Arbeit vereinfachen.
Ein Fertiglösung wird dir keine langfristige Hilfe bieten. Du mußt nachvollziehen können, was da passiert.
Sollte das Makro nicht wunschgemäß funktionieren, kannst Du dich gerne mit einer genauen Problembeschreibung an das Forum wenden.
Nette Grüße und viel Erfolg
Harald
Bild

Betrifft: AW: Makro zum sortieren,addieren und Anzahl ermitteln
von: artur
Geschrieben am: 16.03.2005 14:41:10
Hallo Leute,
danke für die Tips,
habe folgendes Makro gebastelt,mir fehlt jetzt nur noch, dass eine es
in der sortierten Zeile (also F) die gleichen Einträge erkennt und die dazugehörigen DAten in Zeile L addiert.
Mit welchen Befehlen könnte ich das machen?
Vielen Dank
MFG
Artur
Cells.Select
With Selection
.VerticalAlignment = xlTop
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
Selection.RowHeight = 12.75
Selection.Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("I8").Select
End Sub
Bild

Betrifft: AW: Makro zum sortieren,addieren und Anzahl ermitteln
von: Domke, Frank
Geschrieben am: 16.03.2005 15:09:18
Hallo Harald,
Du musst kein VBA-Projekt beauftragen. Hier eine kleine Lösung, um Dir das Leben zu erleichtern:

Sub TrimmeWorksheet()
    Dim ws As Worksheet
    Dim lngRow As Long
    Set ws = ActiveSheet
    
    ' Zellverbindungen auflösen
    ws.Cells.MergeCells = False
'Folgende 2 Subs aus: <a href="http://www.wintotal-forum.de/index.php/topic,5670.0.html">http://www.wintotal-forum.de/index.php/topic,5670.0.html</a>
    LeereSpaltenLoeschen
    LeereZeilenLoeschen
    ws.Cells.Rows.AutoFit
    For lngRow = 11 To ws.Cells.SpecialCells(xlCellTypeLastCell).Row
        ' Achtung, wenn Du die leeren Spalten nicht löscht, ist es Spalte "F"!!!
        Cells(lngRow, "D") = Replace(Cells(lngRow, "D"), Chr(10), " - ")
    Next
    ws.Cells.Columns.AutoFit
    Set ws = Nothing
End Sub

Das mit der Summe schaue ich mir noch an!
Viele Grüße
Frank.
Bild

Betrifft: AW: Makro zum sortieren,addieren und Anzahl ermitteln
von: artur
Geschrieben am: 16.03.2005 15:42:43
Hallo
habe jetzt mit den zwei Codes eine ordentliche sortierung hinbekommen,
wie kann ich nun die gleichen Inhalte bearbeiten?
MFG
Artur
Bild

Betrifft: AW: Makro zum sortieren,addieren und Anzahl ermitteln
von: artur
Geschrieben am: 16.03.2005 15:42:43
Hallo
habe jetzt mit den zwei Codes eine ordentliche sortierung hinbekommen,
wie kann ich nun die gleichen Inhalte bearbeiten?
MFG
Artur
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro zum sortieren,addieren und Anzahl ermitteln"