Thema Datum  Von Nutzer Rating
Antwort
Rot Daten sortieren
 18.07.2022 21:29:10 Tim
NotSolved
18.07.2022 21:40:57 Tim
NotSolved

Ansicht des Beitrags:
Von:
Tim		 Datum:
18.07.2022 21:29:10		 Views:
257		 Rating:
     
Antwort:
  Ja
Thema:
Daten sortieren

Hallo zusammen,

 

ich möchte eine Excel-Oberfläche erstellen, auf der man einige Daten von verschiedenen Anlagen eingeben kann. Diese Daten sollen am Ende nach der Kamera Zahl (K1, K3, K4, K6) sortiert und in ein Word-Dokument über Textmarken übertragen werden.

Beispiel:

Anlage 1 besitzt die Kamera K3

Anlage 1 besitzt die Kamera K4

Anlage 2 besitzt die Kamera K1

Anlage 3 besitzt die Kamera K6

 

Meine Lösung funktioniert zwar, ist aber frei von jeder Eleganz.. Ich würde mich über bessere Ideen freuen.

 

 

 

 

Sub Kameraplan()
Dim wordapp As New Word.Application
Dim doc As Word.Document
Dim A1Kamera1 = Anlagen.Range("D4")
Dim A1Kamera2 = Anlagen.Range("D5")
Dim A2Kamera1 = Anlagen.Range("H4")
Dim A3Kamera1 = Anlagen.Range("L4")


Range("A2:A5").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess


Daten.Range("A2") = A1Kamera1
Daten.Range("A3") = A1Kamera2
Daten.Range("A4") = A2Kamera1
Daten.Range("A5") = A3Kamera1
Daten.Range("A6") = ""
Daten.Range("A7") = ""
Daten.Range("A8") = ""
Daten.Range("A9") = ""






'Word starten, befüllen, speichern
wordapp.Visible = True
Set doc = wordapp.Documents.Open("DATEIPFAD")

doc.Bookmarks("Kamera1").Range.Text = Daten.Range("A2")
doc.Bookmarks("Kamera2").Range.Text = Daten.Range("B2")
doc.Bookmarks("Kamera3").Range.Text = Daten.Range("C2")
doc.Bookmarks("Kamera4").Range.Text = Daten.Range("D2")
doc.Bookmarks("Kamera5").Range.Text = Daten.Range("E2")
doc.Bookmarks("Kamera6").Range.Text = Daten.Range("F2")
doc.Bookmarks("Kamera7").Range.Text = Daten.Range("G2")
doc.Bookmarks("Kamera8").Range.Text = Daten.Range("H2")

doc.ExportAsFixedFormat ThisWorkbook.Path & "Kameraplan" & ".pdf", wdExportFormatPDF

doc.Close SaveChanges:=False

wordapp.Quit


End Sub

 

LG Tim

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 Daten sortieren
 18.07.2022 21:29:10 Tim
NotSolved
18.07.2022 21:40:57 Tim
NotSolved