HERBERS Excel-Forum - die Beispiele

Thema: Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren

Home

Gruppe

Extern

Problem

Wie kann ich aus einer Tabelle nur die Zeilen in eine HTML-Datei konvertieren, in denen eine Zelle einen bestimmten Inhalt hat?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub BedingtZuHTML()
   Dim rng As Range
   Dim var As Variant
   Dim iRow As Integer, iCol As Integer, iFile As Integer
   Dim sFile As String
   Set rng = Range("A1").CurrentRegion
   iFile = FreeFile
   sFile = Application.Path & "\testhtml.htm"
   Open sFile For Output As iFile
   Print #iFile, "<html>"
   Print #iFile, "<head>"
   Print #iFile, "<title>Bedingte HTML-Übernahme</title>"
   Print #iFile, "<style>"
   Print #iFile, "   th"
   Print #iFile, "   {"
   Print #iFile, "      font-family=tahoma,verdana;"
   Print #iFile, "      font-size=12px;"
   Print #iFile, "      font-weight=bold"
   Print #iFile, "   }"
   Print #iFile, ""
   Print #iFile, "   td"
   Print #iFile, "   {"
   Print #iFile, "      font-family=tahoma,verdana;"
   Print #iFile, "      font-size=12px;"
   Print #iFile, "   }"
   Print #iFile, "</style>"
   Print #iFile, "<head>"
   Print #iFile, "<body>"
   Print #iFile, "<table border=1 cellpadding=3 cellspacing=1>"
   Print #iFile, "  <tr>"
   For iCol = 1 To rng.Columns.Count
      Print #iFile, "    <th bgcolor=#ffffe0>" & Cells(1, iCol).Value & "</th>"
   Next iCol
   Print #iFile, "  </tr>"
   For iRow = 1 To rng.Rows.Count
      var = Application.Match("Zu HTML", Rows(iRow), 0)
      If Not IsError(var) Then
         Print #iFile, "  <tr>"
         For iCol = 1 To rng.Columns.Count
            Print #iFile, "    <td>" & Cells(iRow, iCol).Value & "</td>"
         Next iCol
         Print #iFile, "  </tr>"
      End If
   Next iRow
   Print #iFile, "</table>"
   Print #iFile, "</body>"
   Print #iFile, "</html>"
   Close iFile
   Shell "explorer " & sFile, vbMaximizedFocus
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und HTML

Unterobj. von html getElements..() weiter parsen HTML in VBA bei Outlook EINLADUNG
Regex für Filterung von Daten in html-seiten Dateiname externer Datei ändern
Tabellenblatt aus externer Exceldatei kopieren ConboBox mit externe Daten füllen
HTML Code von Suchabfrage mit VBA abfragen Excel zu HTML formatieren
Wert in externer Datei suchen Aufruf externer Programme
HTML Farben darstellen Externe Bezüge auslesen mit VBA
Externe Verküpfung anpassen Zelle kopieren - einfügen in HTML Dokument
Pivot mit Externer DB am Limit? Als HTML speichern - variabler Name
HTML-eMailversand Externe Verknüpfungen
Blätter in Externer Arbeitsmappe einblenden externes Verzeichnis ansprechen
Externe Datenquelle via VBA Pivot mit Externer DB UNION funzt nich
Nur externe Bezüge rausnehmen Import von HTML-Datei - Ungewünschte Formatierung
*xlt-Dateien als externe Datenquelle nutzen Externes Programm öffnen
Makro: Bezug auf externes xls-File? Wert an externes Programm übergeben
Externe Excel-Verknüpfungen automatisiert ändern Hyperlinks aus Tabelle in Bookmark.html
Verlinkung externer Arbeitsmappen Tabelle in externer Datei löschen
externe Bezüge suchen/ersetzen neue Zeile und externe Bezüge....
Externe Verknüpfung finden html auto refresh
externe Bezüge Summenprodukt + Externe Bezüge
Datenbank in externer Datei Problem mit HTML-Kopie
Fehler beim Kopieren von externer Tabelle Problem mit HTML-Kopie
anzahl Blätter externer Excel-Datei Externe Daten aus Access
Externe Daten importieren aus Access Zellwert als Parameter f. externes Script/Programm
Übertragung in "Formel" für HTML-Upload Worksheetzugriff auf externe Datei
Dropdown - externe Daten Externe Bezüge