Makro

Computer: Software & Programmierung Visual Basic
#1

Liebe/-r Experte/-in,

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

Hallo, es ist schön das du dich an mich gewandt hast, leider kann ich dir hier nicht weitehelfen. Ich behersche nur die Makro4 Sprache, die ist in deutsch. In Visual Basic kann ich nicht programmieren.
LG Harr

#3

Hallo Simone,

schau Dir das hier mal an:

Sub Makro1()
Dim standort As String
Dim leftrange As Variant
Dim suchname As String
Dim x As Variant
Dim rZeile As Range

standort = InputBox(„Bitte Standort eingeben“)
Set leftrange = Range(„A2:A1000“)
suchname = standort

For Each x In leftrange

If x = standort Then
If rZeile Is Nothing Then
Set rZeile = Rows(x.Row)
Else
Set rZeile = Union(rZeile, Rows(x.Row))
End If
End If

Next x

If Not rZeile Is Nothing Then rZeile.Select

Application.ActivePrinter = „PDF-ConverterPro auf
Ne01:“
Selection.PrintOut Copies:=1, ActivePrinter:=„PDF-
ConverterPro auf Ne01:“, _
Collate:=True
End Sub

Erfüllt das Deinen Zweck?
Den Teil ganz unten (der zuständig für den Ausdruck
ist) habe ich nicht ausprobiert. Liegt auch daran das
ich keinen PDF-Drucker mit der Namensgebung habe.

Aber ich denke mal der Teil sollte auch funktionieren.

Viele Grüße,
VBMichi - Michi

Liebe/-r Experte/-in,

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