Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
972to976
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
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellinhalt suchen, einfügen Leerzeile

Zellinhalt suchen, einfügen Leerzeile
07.05.2008 14:28:50
Bernd
Hallo zusammen, vielleicht kann mir ja hier wer weiterhelfen.
Wollte einen bestehenden VBA Code etwas ändern, leider komm ich allein nicht weiter.
Ich bräuchte nen Code-Abschnitt, der mit die Spalte C durchläuft, nach dem letzten Inhalt mit „10“ soll eine Leerzeile eingefügt werden, dann weiter… wieder eine Zeerzeile nach „20“, wieder weiter… und dann wird’s knifflig, hier dann nach „31“ „32“ oder „33“, je nachdem was beinhaltet ist, also nach dem letzten der 3 Werte.
Sollte ein Zellinhalt nicht gefunden werden, 20 bedeutet z.B. Elektronik, dann natürlich keine Leerzeile
Zur besseren Veranschaulichung hab ich hier mal ne Beispieltabelle kopiert, es geht mir um die Zwischensummenzeilen, die hier noch manuell eingefügt wurden, an den Formeln möchte ich mich aber später selber versuchen.
Schon jetzt vielen Dank für Eure Hilfe.
Gruß
Bernd
Abruf

 ABCDEF
4PSP-ElementPSP-BezeichnungProj.ArtNettoerlös 2Selbstkosten 2Ergebnis
52006014-0010Elv21/Ash21101.000,00500,00500,00
62006014-0020Qm21/Az23102.000,00500,001.500,00
72006014-0030Qm22/Sth21/22/23/Mw21103.000,00500,002.500,00
82006014-0040Qm23/Sth24-Sth25104.000,00500,003.500,00
92006014-0050Sth27-27a-27b-27c-27d/Mz21/Umbau Qm105.000,00500,004.500,00
102006014-0010Elv21/Ash21101.000,00500,00500,00
112006014-0020Qm21/Az23102.000,00500,001.500,00
122006014-0030Qm22/Sth21/22/23/Mw21103.000,00500,002.500,00
13 Zwischensumme Mechanik 21.000,004.000,0017.000,00
142006014-0390S5206.000,001.000,005.000,00
152006014-0400S1207.000,001.000,006.000,00
162006014-0410P1208.000,001.000,007.000,00
172006014-0420P3209.000,001.000,008.000,00
182006014-0430P42010.000,001.000,009.000,00
19 Zwischensumme Elektro 40.000,005.000,0035.000,00
202006014-0540Mechanik Montage3010.000,005.000,005.000,00
212006014-0550Elektro Montage3210.000,005.000,005.000,00
222006014-0560Mechanik-Inbetriebnahme3110.000,005.000,005.000,00
232006014-0570Elektro-Inbetriebnahme3310.000,005.000,005.000,00
242006014-0580Mechanik Montage300,005.000,00-5.000,00
252006014-0590Elektro Montage320,005.000,00-5.000,00
26 Zwischensumme Außenmontage 40.000,0030.000,0010.000,00


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt suchen, einfügen Leerzeile
07.05.2008 15:15:29
Armin
Hallo Bernd,
die schöne Tabelle sagt mir nichts, kannst Du Dein Sheet (gekürzt) hochladen?
Gruß Armin

AW: Zellinhalt suchen, einfügen Leerzeile
07.05.2008 15:33:00
Bernd
Hi, danke erstmal… wenns hilft natürlich gerne.
https://www.herber.de/bbs/user/52198.xls
Hab mal zwei Tabellenblätter draus gemacht, also aus den Tabellenblatt ‚Abruf‘ soll dadurch das Tabellenblatt ‚Ziel‘ werden. Kopiert braucht aber nicht zu werden, mir geht’s nur um das Einfügen der orange markierten Leerzeilen, wie ich das per VBA hinbekomme. Die Spalte C soll eben nach oben beschriebenen Kriterium durchgegangen werden.
Hoffe wird is so verständlicher.
Gruß Bernd

Anzeige
AW: Zellinhalt suchen, einfügen Leerzeile
07.05.2008 17:45:34
Armin
Hallo Bernd,
am einfachsten wäre man schreibt die Daten in ein neues Blatt. Wäre das ok oder geht nicht?
Gruß Armin

AW: Zellinhalt suchen, einfügen Leerzeile
08.05.2008 09:34:07
Bernd
Hallo, das geht natürlich schon, werde dann halt später das alte Blatt wieder löschen. =D
danke und Gruß

AW: Zellinhalt suchen, einfügen Leerzeile
08.05.2008 10:51:58
Armin
Hallo Bernd,
ich hatte nicht gleich Zeit, aber jetzt kannst Du bitte mal testen.
Bitte im Sheet die Hinweise beachten.
https://www.herber.de/bbs/user/52225.xls
Gruß Armin

AW: Zellinhalt suchen, einfügen Leerzeile
08.05.2008 12:24:00
Bernd
Hallo Armin, boah, das is ja heftig, das is ja mehr als genial, danke Armin =D
da hab ich ja auch gar kein Ärger mehr mir die Summen zusammenzufriemeln, und auch das mit den Projetkarten auf dem zusätzlichen Blatt is genial gelöst, echt spitze :)
auch die Sortierung is genau wie ichs eigentlich wollt.
nur noch ne klitze kleine Änderung hätt ich da doch noch, momentan wird doch generell "Summen" als Text vorangestellt, fänds noch besser, wenn man den Text auf dem Tabellenblatt "COD" dafür mitgeben könnt, der dann entsprechend übernommen wird, also so:
COD

 ABCDEFGHIJKL
1Bereichscode10         Summe Mechanik
2 20         Summe Elektrik
3 30313233      Summe Außenmontage
4 40         Summe Handelsware


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
aber wenns nicht geht, auch nicht schlimm... einfach genial das Teil
tausend Dank
Gruß
Bernd

Anzeige
AW: Zellinhalt suchen, einfügen Leerzeile
08.05.2008 14:56:20
Bernd
Hi, echt super, vielen vielen Dank =D
Falls du noch nen Nerv hast, hab ich nochmal ne kleine Änderung: =(
Eine Gesamtsumme wär nicht schlecht
Hab bis jetzt nur die Summenformel durch die Teilsummenformel ersetzt, also:
' Quelle.Offset(0, K).FormulaR1C1 = "=SUM(R[" & CStr(Zx) & "]C:R[-1]C)" = Summe
Quelle.Offset(0, K).FormulaR1C1 = "=SUBTOTAL(109,R[" & CStr(Zx) & "]C:R[-1]C)" ' = Teilsumme
damit darunter die Gesamtsumme der 3 Spalten genauso als Teilsumme gebildet werden kann.
Kannst mir noch sagen, wo ich das am besten in den bestenden Code einfüge?
wenn ich so was seh merke ich, daß ich in VBA fast gar nix kann
Gruß Bernd

Anzeige
AW: Zellinhalt suchen, einfügen Leerzeile
08.05.2008 16:30:00
Armin
Hallo Bernd,
also so wie Du es vorschlägst geht es leider nicht. Denn man darf ja die Zwischensummen nicht noch einmal mit addieren. Ich habe aber eine andere Wariante eingebaut die die Summe Total berechnet.
https://www.herber.de/bbs/user/52234.xls
Übrigens wir haben alle einmal angefangen! Also lass den Kopf nicht hängen mit der Zeit wirst Du immer besser, glaub mir. Die großen Erfolge stellen sich nicht gleich am 1.Tag ein (Sprichwörtlich).
Gruß Armin

AW: Zellinhalt suchen, einfügen Leerzeile
08.05.2008 16:45:08
Bernd
einfach nur genial, danke Armin. =D
Gruß Bernd
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige