Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere tabellenbläter in eine htmldatei speichern

Forumthread: mehrere tabellenbläter in eine htmldatei speichern

mehrere tabellenbläter in eine htmldatei speichern
24.02.2006 17:02:11
siziwi
hallo
ich habe ein makro geschrieben, welches in einem tabellenblatt automatisch testet welche zellen einen wert enthalten und welche nicht (nur 1. spalte und nach 3 leeren zeilen bricht die schleife ab!)
dieser bereich wird nachher in einr html-datei gespeichert, um anschliessen aufs netz zu laden.
ist es nun möglich, bei mehreren tabellenblätter alle berieche von den verschieden tabellenblätter in eine datei zu speichern? dh. zb. drei berieche in einer datei gespeichert!
hier wäre noch der link zur datei, mit dem makro (es ist noch nicht überarbeitet, dh. es könnte noch effizienter gemacht werden mit einer function!)
https://www.herber.de/bbs/user/31389.xls
danke vielmals
siziwi
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere tabellenbläter in eine htmldatei speic
24.02.2006 17:47:15
Reinhard
Hi Antonia,
im Array Blatt legst du die Blattnamen fest, Alle tabellen (bis auf die letzte) werden in die letzte kopiert, diese dann als Html gespeichert. 
Option Explicit
Option Base 1
Private Sub btnSprueche_Click()
Dim zei As Long, n As Byte, zei4 As Long, ws4 As Worksheet, Blatt
Blatt = Array("Tabelle1", "Tabelle9", "Tabelle12", "Tabelle2")
Set ws4 = Worksheets(Blatt(UBound(Blatt)))
For n = 1 To UBound(Blatt) - 1
With Worksheets(Blatt(n))
zei = 1
While (.Cells(zei + 1, 1) & .Cells(zei + 2, 1) & .Cells(zei + 3, 1) <> "")
zei = zei + 1
Wend
zei4 = IIf(n = 1, 1, ws4.Range("A65536").End(xlUp).Row + 1)
.Range(Cells(1, 2), Cells(zei, 2)).Copy ws4.Cells(zei4, 1)
End With
Next n
Range(Cells(1, 1), Cells(zei4 + zei, 2)).Select
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
"C:\Dokumente und Einstellungen\Simon\Desktop\sprueche_makro.htm", Blatt(4), _
"" & Range(Cells(1, 1), Cells(zei4 + zei, 2)).Address & "", xlHtmlStatic, Blatt(4), "")
.Publish (True)
.AutoRepublish = False
End With
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: mehrere tabellenbläter in eine htmldatei speic
24.02.2006 21:15:43
simi
also zuerst einmal vielen dank! hätte das nie so kompakt hinbekommen!!
aber etwas ist mir noch nicht klar, resp. funktioniert nicht richtig. für das tabellenblatt1 (ws1) funktioniert das ganze, aber wenn dann n grösser als 1 ist (also das erste mal bei n=2)""With Worksheets(Blatt(n))"", dann kommt eine fehlermeldung "Index ausserhalb des gültigen Bereichs"!!
an was mag das liegen?
weiter ist mir diese codezeile nicht ganz klar: ""Blatt = Array("Tabelle1", "Tabelle9", "Tabelle12", "Tabelle2")""
hoffe du kannst mir nochmals helfen!
simi
(das mit antonia stimmt nicht, das excel-dokument habe ich auf einem anderen pc geschrieben!)
Anzeige
AW: mehrere tabellenbläter in eine htmldatei speic
25.02.2006 17:28:31
Reinhard
Hi Simi,
normalerweise beginnen Arrays in vba immer beim Index 0, durch Option base 1 habe ich den ersten Index auf 1 gesetzt.
Durch
Blatt = Array("Tabelle1", "Tabelle9", "Tabelle12", "Tabelle2")
habe ich dann 4 Variablen.
Blatt(1)="Tabelle1"
Blatt(2)="Tabelle9"
Blatt(3)="Tabelle12"
Blatt(4)="Tabelle2"
Mit Ubound(Blatt) erhalte ich die 4 , also die Anzahl der parameter die in Array stehen.
Warum der Code nicht läuft schau ich mal.
Gruß
Reinhard
Anzeige
AW: mehrere tabellenbläter in eine htmldatei speic
25.02.2006 17:44:04
simi
ok danke vielmals, dass du nocheinmal schaust ob das ding läuft oder nicht!!
das andere is mir jetzt ungefähr klar! nochmal ein grosse dankeschön für deine arbeit, ist sehr kompakt herausgekommen, deine version!
simi
;

Forumthreads zu verwandten Themen

Inhalt aus mehreren Tabellen einfügen
Fred

Hallo zusammen.
Ich bin seit längerem schon auf der suche nach einem Makro und kann aber ein ähnliches wie ich es bräuchte nicht. Finde.
Es geht darum, das ich wenn ich auf einen Button klicke möchte ,das das Makro mehrere Von mir benannte Ordner duch sucht nach fest vorgeschriebenen X...
21.08.2008 18:04:19
Thread-ID: 1003605
2 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
Aus zwei Tabellen eine Machen
SebastianSchelb

Hallo ich brauche euere Hilfe. Aleine schaffe ich es einfach nicht.
Ich habe eine zwei Tabelle mit Wörtern die zusammengefasst werden soll in eine Tabelle, in welcher aber kein Wort doppelt sein soll. Die anzahl der Wörter der 1. und 2. Tabelle vareieren von Tag zu Tag
Tabelle 1 (in der...
06.10.2008 14:52:00
Thread-ID: 1014455
5 Beiträge
Anzeige
Liste aus zwei Tabellen
kirsche

hallo leute,
mal wieder brauche ich eure hilfe.
ich möchte eine liste erstellen, die sich aus zwei tabellen zusammen setzt.
1.tabelle = oberbegriffe
2.tabelle = unterbegriffe
nun soll in der liste der erste oberbegriff eingetragen werden und dann die dazugehörigen unterbegr...
19.10.2008 12:36:48
Thread-ID: 1017454
5 Beiträge
Anzeige
3D Diagramm erstellen aus Matrix
Kay

Hallo,
Ich habe in Excel eine Matrix, die folgendermaßen aufgeteilt ist
A B C D
15 12% 10% 15% 20%
30 10% 13% 17% 19%
45 8% 12% 15% 17%
Wie bekomme ich es nun hin, dass mir auf der Größenachse alle %-Werte, auf der Rubrikenachse die Zeile...
29.10.2008 21:38:38
Thread-ID: 1020422
7 Beiträge
Optimale Spaltenbreite per makro auf anderem Blatt
Macro

Hi,
Ich möchte von einem Tabellenblatt aus per Button die "optimale Spaltenbreite" auf einem anderen Blatt einstellen.
Kann ich das machen, ohne dass mein Tabellenblatt, von dem ich aus starte, den Focus verliert, bzw, dass ich das zweite Tabellenblatt (wo die Einstellung statt finden...
10.12.2008 13:37:50
Thread-ID: 1031680
4 Beiträge
Anzeige
Pivot Tabelle in Array auslesen & neu erstellen
Andreas

Hallo Herber Fans,
da PivotTabellen sich nicht immer rational verhalten, ist es zuweilen notwendig, diese zu löschen und komplett neu aufzubauen, damit sie wieder fehlerlos sind und andere VBA Codes die mit ihnen arbeiten, nicht zum Absturz bringen.
Was ich nun realisierte, war ein Code...
12.02.2009 19:20:00
Thread-ID: 1050227
4 Beiträge
Diagramm als Tacho mit 3 Linien
SteffenS

Hallo Zusammen,
ich habe im Netz ein Beispiel für ein Tachodiagramm gefunden.
Dieses funktioniert auch super.
Ich benötige aber statt zwei 3 Zeiger.
Wie mache ich dies?
Hier die Datei: https://www.herber.de/bbs/user/61277.xls
Danke im Voraus.
MFG
Steffen Schmerl...
18.04.2009 14:20:13
Thread-ID: 1069491
4 Beiträge
Texte aus anderem Tabellenblatt kopieren
Stefan

Hallo zusammen,
in einer Tabelle habe ich mir im Tabellenblatt 'Umwandeln' für verschiedene Textmanipulationen Formeln eingerichtet. Die Texte, die verändert werden sollen (Artikelbezeichungen) bekomme ich in Form einer Exceltabelle und ich ziehe mir das Tabellenblatt 'Artikel' als neues Ta...
22.04.2009 23:35:00
Thread-ID: 1070529
3 Beiträge
Tabellenblätter aus Liste erstellen
StefanS

Guten Morgen,
kaum hat der Tag begonnen und schon hänge ich wieder fest!
Diesmal soll aus einer Liste (bezugnehmend auf die Spalte Section) div.Tabellenblätter mit der Bezeichnung Register_1 usw. erstellt werden. Die Anzahl der neuen Tabellenblätter entspricht der Anzahl der aufgeführt...
12.05.2009 08:10:21
Thread-ID: 1074477
6 Beiträge
Aus mehreren Tabellenblättern Daten auslesen
Manuel

Hallo und einen schönen Sonntag,
ich habe eine Arbeitsmappe, mit 152 Tabellenblättern, hier soll mir das Makro als Referenz die Zeile B nehmen und soll dort jeweils die Zeilen welche "irgendwas" enthalten in einen neue Datei kopieren.
Das derzeitige Script, erstellt die neue Datei und K...
17.05.2009 14:37:22
Thread-ID: 1075699
2 Beiträge
Min aus mehreren Tabellenblättern
Hilmar

Hallo Leute,
ich habe hier eine Formel, die auf einem Tabellenblatt funktioniert.
=INDEX(C11:C100;VERGLEICH(MIN(M11:M100);M11:M100;0);1)
Ich möchte aber den MIN-Wert aus 5 Tabellenblättern haben.
Hat da jemand eine Idee?
Hilmar
08.06.2009 20:03:19
Thread-ID: 1079989
14 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige