Guten Tag,
ich bin ein Makroneuling und brauche eure Hilfe.
Ich habe eine Liste, die in der A-Spalte jeweils den Standort enthält (entweder IN oder BRX). Jetzt soll ich ein Makro schreiben, dass erst nach einem Standort sucht (das hätte ich per Inputbox gemacht) und dann die komplette Zeile ins PDF konvertiert. So dass ich dann eine Liste im PDF mit nur einem Standort habe. Irgendwie funktioniert das bei mir nicht so. Ich kopiere euch mal mein (nicht-funktionierendes) Makro. Ich hoffe ihr könnt mir helfen.
Sub Makro1()
Dim standort As String
Dim leftrange As Variant
Dim suchname As String
Dim x As Variant
standort = InputBox(„Bitte Standort eingeben“)
Set leftrange = Range(„A2:A1000“)
suchname = standort
For Each x In leftrange
Set zelle = Range(„A2:A1000“).Columns(1).Find(suchname, LookIn:=xlValues)
zelle.Select
If x = standort Then
Application.ActivePrinter = „PDF-ConverterPro auf Ne01:“
Selection.PrintOut Copies:=1, ActivePrinter:=„PDF-ConverterPro auf Ne01:“, _
Collate:=True
End If
Next x
End Sub
Gruß
Simone
Ich habe eine Liste, die in der A-Spalte jeweils den Standort
enthält (entweder IN oder BRX). Jetzt soll ich ein Makro
schreiben, dass erst nach einem Standort sucht (das hätte ich
per Inputbox gemacht) und dann die komplette Zeile ins PDF
konvertiert. So dass ich dann eine Liste im PDF mit nur einem
Standort habe. Irgendwie funktioniert das bei mir nicht so.
Hallo Simone,
wenn deine Tabelle1 so aussieht:
Tabellenblatt: [Mappe1]!Tabelle1
│ A │ B │ C │ D │ E │ F │
───┼───────┼──────────┼───┼───┼──────┼──────────┤
1 │ name │ standort │ │ │ name │ standort │
───┼───────┼──────────┼───┼───┼──────┼──────────┤
2 │ name1 │ IN │ │ │ │ IN │
───┼───────┼──────────┼───┼───┼──────┼──────────┤
3 │ name2 │ BRX │ │ │ │ BRX │
───┼───────┼──────────┼───┼───┼──────┼──────────┤
4 │ name3 │ dd │ │ │ │ │
───┼───────┼──────────┼───┼───┼──────┼──────────┤
5 │ name4 │ IN │ │ │ │ │
───┼───────┼──────────┼───┼───┼──────┼──────────┤
6 │ name5 │ ss │ │ │ │ │
───┼───────┼──────────┼───┼───┼──────┼──────────┤
7 │ name6 │ IN │ │ │ │ │
───┼───────┼──────────┼───┼───┼──────┼──────────┤
8 │ name7 │ ddd │ │ │ │ │
───┼───────┼──────────┼───┼───┼──────┼──────────┤
9 │ name8 │ BRX │ │ │ │ │
───┼───────┼──────────┼───┼───┼──────┼──────────┤
10 │ name9 │ dd │ │ │ │ │
───┴───────┴──────────┴───┴───┴──────┴──────────┘
A1:F10
haben das Zahlenformat: Standard
Tabellendarstellung erreicht mit dem Code in FAQ:2363
so erzeugst du in Tabelle2 die gewünschte Liste so:
Sub tt()
Dim wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
With wks1
.Range("A1:B10").AdvancedFilter Action:=xlFilterCopy, \_
CriteriaRange:=.Range("E1:F3"), CopyToRange:=wks2.Range("A1") \_
, Unique:=False
End With
'Hier dann Code um wks2 auszudrucken
End Sub
Gruß
Reinhard
Guten Tag,
Hallo Reinhard,
danke für deine schnelle Hilfe. Ich bräuchte aber die Zeile dann nicht in einer neuen Tabelle sondern im PDF.
Das Layout meiner Tabelle:
Standort # "AnsprechPartner Kategorie "Thema
BRX 38 Kinast Organisatorisch Wartungsvertrag
Gruß
Simone
Hallo Simone,
danke für deine schnelle Hilfe. Ich bräuchte aber die Zeile
dann nicht in einer neuen Tabelle sondern im PDF.
Nachfrage, du willst immer nur eine Zeile mit dem Pdf-Drucker ausdrucken?
Das Layout meiner Tabelle:
Benutze bitte den pre-Tag, wird unterhalb des Eingabefensters erläutert, dann sieht das hier so aus:
Standort # AnsprechPartner Kategorie Thema
BRX 38 Kinast Organisatorisch Wartungsvertrag
Gruß
Reinhard
Guten Tag,
Hallo Reinhard,
nein ich will alle zeilen eines standortes in pdf konvertieren. Das problem ist nur, dass die nicht untereinander stehen sondern zwischen drin auch mal andere standorte sind.
Gruß
Simone
nein ich will alle zeilen eines standortes in pdf
konvertieren. Das problem ist nur, dass die nicht
untereinander stehen sondern zwischen drin auch mal andere
standorte sind.
Hallo Simone,
dann bietet sich doch an zu filtern und das Ergebnis auszudrucken.
Was gefällt dir nicht an meinem Lösungsansatz?
Gruß
Reinhard