Zeile mit best.Inhalt finden&in PDF ausgeben(Makro

Computer: Software & Programmierung Visual Basic
#1

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

#2

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

#3

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

#4

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

#5

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

#6

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