Thema Datum  Von Nutzer Rating
Antwort
Rot Hilfe für ein bestimmtes Makro
04.11.2016 16:09:45 Aenima
Solved
04.11.2016 16:37:07 Gast43061
NotSolved
08.11.2016 11:08:06 Gast69719
NotSolved
08.11.2016 11:33:42 Gast86850
NotSolved
04.11.2016 19:04:24 Gast54173
NotSolved
04.11.2016 19:16:12 Gast91500
NotSolved
12.11.2016 17:45:43 Gast47627
Solved

Ansicht des Beitrags:
Von:
Aenima
Datum:
04.11.2016 16:09:45
Views:
1746
Rating: Antwort:
 Nein
Thema:
Hilfe für ein bestimmtes Makro

Hallo zusammen,

 

Ich bräuchte bitte Hilfe bei einem Excel-Makro. Da ich (noch) nicht fachkundig bin, hänge ich leider nicht nur bei einem bestimmten Punkt, sondern bitte um Hilfe/Vorschläge für das gesamte Makro. Es sollte aber ein relativ simples Makro sein.

 

Was soll das Makro tun?
Geöffnet ist eine fertige Tabelle mit beliebig vielen Einträgen über mehrere Zeilen und Spalten (Anzahl an ausgefüllten Zeilen kann variieren, da Tabelle von einem anderen
System importiert wird).

Schritt1:
Bei auslösen des Makros soll das Tabellenblatt zunächst alles markieren (bis zum letzten Eintrag). Wenn also von A1 bis zu H500 Einträge sind, soll genau dieser Bereich
markiert sein. Das habe ich bereits über die Makroaufzeichnung ausprobiert, wenn man schlicht und einfach "Strg + A" drückt, wird ja genau der befüllte Bereich markiert,
aber der doofe Makrorecorder zeigt mir durch aufnehmen von "Strg + A" nicht die VBA-Übersetzung für "Alles markieren" auf sondern "ActiveCell.Range("A1:H500").Select".
Das dürfte anders als bei Strg + A nicht gültig sein, wenn der Auswahlbereich variiert, sondern immer nur A1 bis H500 markieren.

Schritt2:
Im nächsten Schritt soll die Auswahl nach fett markierten Einträgen durchforstet werden und alle fett markierten Einträge löschen. Anschließend sollen die dadurch entstandenen
leeren Zeilen gelöscht werden (fett geschriebene Einträge können einfach zwischendrin auftauchen). Alternative wäre, für alle fett geschriebenen Einträge, nicht nur die
Zellinhalte zu löschen, sondern jeweils die ganze Zeile. Das wäre möglich, da dort wo fette Einträge sind, immer die ganze Zeile fett ist

Schritt3:
Schließlich sollen noch alle Zeilen und Spalten auf die optimale Größe angepasst werden (was man durch Doppelklick zwischen zwei Zeilen/Spalten erreicht)


Pseudo-Code

1. Alle Zellen markieren, die nicht leer sind
2. Zählen, bis zu welcher Zeile diese Auswahl geht und die letzte Zeile in Variable i speichern
3. Schleife, die von Zeile 1 bis i durchläuft und von Zeile zu Zeile prüft, ob dort die Formatierung "fett" vorkommt
4. Alle Zeilen, für die diese Bedingung zutrifft löschen
5. Optimale Zeilen- u. Spaltengröße für gesamte Auswahl vornehmen (diesen Schritt vielleicht direkt als zweiten Schritt)

 

Über Unterstützung freue ich mich sehr!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Hilfe für ein bestimmtes Makro
04.11.2016 16:09:45 Aenima
Solved
04.11.2016 16:37:07 Gast43061
NotSolved
08.11.2016 11:08:06 Gast69719
NotSolved
08.11.2016 11:33:42 Gast86850
NotSolved
04.11.2016 19:04:24 Gast54173
NotSolved
04.11.2016 19:16:12 Gast91500
NotSolved
12.11.2016 17:45:43 Gast47627
Solved