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:
347
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.

 

 

 

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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