Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum sortieren,addieren und Anzahl ermitteln

Makro zum sortieren,addieren und Anzahl ermitteln
16.03.2005 12:42:47
artur
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum sortieren,addieren und Anzahl ermitteln
16.03.2005 14:14:52
Luc
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 :-?
AW: Makro zum sortieren,addieren und Anzahl ermitteln
16.03.2005 14:21:00
Harald
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
Anzeige
AW: Makro zum sortieren,addieren und Anzahl ermitteln
16.03.2005 14:41:10
artur
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
Anzeige
AW: Makro zum sortieren,addieren und Anzahl ermitteln
16.03.2005 15:09:18
Domke,
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.
Anzeige
AW: Makro zum sortieren,addieren und Anzahl ermitteln
16.03.2005 15:42:43
artur
Hallo
habe jetzt mit den zwei Codes eine ordentliche sortierung hinbekommen,
wie kann ich nun die gleichen Inhalte bearbeiten?
MFG
Artur
AW: Makro zum sortieren,addieren und Anzahl ermitteln
16.03.2005 15:42:43
artur
Hallo
habe jetzt mit den zwei Codes eine ordentliche sortierung hinbekommen,
wie kann ich nun die gleichen Inhalte bearbeiten?
MFG
Artur

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige