Von Excel importieren, leere Variablen ausblenden?

Dieses Forum ist für alle NiceLabel Fragen für die deutschen Benutzer.

Moderators: Georges, milos, RobertK, tb, rom, NiceLabel Support Team

Post Reply
bona
Enthusiast
Posts: 7
Joined: Tue Sep 21, 2010 5:31 pm

Von Excel importieren, leere Variablen ausblenden?

Post by bona » Tue Sep 21, 2010 5:40 pm

Hallo,
ich importiere drei Zeilen aus dem Excel (Zeile1, Zeile2, Zeile3) jedoch wird nicht für jedes Etikett alle drei Zeilen benötigt. Jedoch sollten alle drei Zeilen horizontal wie auch vertikal zentriert ausgerichtet sein. D.h. egal ob zwei oder drei Zeilen.
Wie löst man dieses Problem am besten?

Mein Ansatz wäre die Variable "Zeile3" zu überwachen und jenachdem ob diese gefüllt ist oder nicht nimmt es die korrekte Maske.

NiceLable Pro

Freundliche Grüsse
R. Bona

User avatar
Frank
Addict
Addict
Posts: 282
Joined: Tue Oct 24, 2006 8:51 am
Location: Germany / Minden
Contact:

Re: Von Excel importieren, leere Variablen ausblenden?

Post by Frank » Wed Sep 22, 2010 8:52 am

Hallo R.Bona,

Bei Adress-Etiketten benötigt man auch nicht immer alle Zeilen....
und kann das mit einem VB script lösen:

Code: Select all

Dim MyString

MyString = ""

if Len(Name) <> 0 then
  MyString = MyString & Name & VbCrLf
end if

if Len(AddressLine1) <> 0 then
  MyString = MyString & AddressLine1 & VbCrLf
end if

if Len(AddressLine2) <> 0 then
  MyString = MyString & AddressLine2 & VbCrLf
end if

if Len(City) <> 0 then
  MyString = MyString & City
end if

Result = MyString
statt der variablen Name, AdressLine1... einfach die Datenbank Variablen nutzen.

MfG
Regards
Frank Breuckmann

Image
-AVERY Partner
-Intermec Fingerprint programming
no printer, no time? -> no problem, we can print for you! service@sde-web.de

bona
Enthusiast
Posts: 7
Joined: Tue Sep 21, 2010 5:31 pm

Re: Von Excel importieren, leere Variablen ausblenden?

Post by bona » Wed Sep 22, 2010 11:03 am

Vielen Dank erstmals für den Anstoss,
habe wie folgt abgeändert:

Code: Select all

Dim MyString

MyString = ""

if Len([Sheet1$.Zeile3]) = "" then
  MyString = [Sheet1$.Zeile1] & VbCrLf & [Sheet1$.Zeile2]

else
  MyString = [Sheet1$.Zeile1] & VbCrLf & [Sheet1$.Zeile2] & VbCrLf & [Sheet1$.Zeile3]
end if


Result = MyString
wenn Sheet1$.Zeile3 = nichts dann nur die Ersten zwei Zeilen. Jedoch macht da Excel nicht so ganz mit. Also hab ich es ausprobiert mit wenn Sheet1$.Zeile3 = "x". Klappt nur bedingt.

Noch eine kleine Nebenfrage:
Wird dieser Code für jedes Etikett einzeln ausgeführt wenn ich die Funktion auf das Etikett gelegt habe?
Momentan ist es noch so entweder alle Zweizeilig oder Dreiteilig.

Freundliche Grüsse
R.Bona

User avatar
Frank
Addict
Addict
Posts: 282
Joined: Tue Oct 24, 2006 8:51 am
Location: Germany / Minden
Contact:

Re: Von Excel importieren, leere Variablen ausblenden?

Post by Frank » Wed Sep 22, 2010 11:55 am

Beispiel:
Tabelle
zeile1 ----- zeile2 ----- zeile3
hallo -----drucker -----(leer)
hallo ----- (leer) -----printer
hallo ----- du----- drucker

VB Script

Code: Select all

Dim MyString

MyString = ""

if Len([Tabelle1$.zeile1]) <> 0 then
      MyString = MyString & [Tabelle1$.zeile1] & VbCrLf
end if

if Len([Tabelle1$.zeile2]) <> 0 then
      MyString = MyString & [Tabelle1$.zeile2] & VbCrLf
end if

if Len([Tabelle1$.zeile3]) <> 0 then
      MyString = MyString & [Tabelle1$.zeile3]
end if

Result = MyString
Ergebniss im Druck : VB Script als Textfeld auf's Etikett
datensatz1:
hallo
drucker

datensatz2:
hallo
printer

datensatz3:
hallo
du
drucker
######################################

es wird also bei (leer)ZELLEN ausgeblendet und zusammengerückt.
Regards
Frank Breuckmann

Image
-AVERY Partner
-Intermec Fingerprint programming
no printer, no time? -> no problem, we can print for you! service@sde-web.de

bona
Enthusiast
Posts: 7
Joined: Tue Sep 21, 2010 5:31 pm

Re: Von Excel importieren, leere Variablen ausblenden?

Post by bona » Wed Sep 22, 2010 12:18 pm

Genau dies hätte ich auch erwartet, aber bei mir kommt anstatt nichts, <leer>.
Habe Ihr Script übernommen nur die Variablen sind bei mir auf english.
Es will noch nicht so wie ich.

Werde nochmals herumprobieren.
Melde mich wieder bei weiteren unklarheiten oder bei erfolg.

bona
Enthusiast
Posts: 7
Joined: Tue Sep 21, 2010 5:31 pm

Re: Von Excel importieren, leere Variablen ausblenden?

Post by bona » Thu Sep 23, 2010 1:39 pm

Guten Tag,
die Lenfunktion auf eine Variable die aus Excel geholt wurde ist bei mir immer ungleich 0.
Desshalb habe ich einfach auf X abgefragt und wo es leer sein soll ein x hingeschrieben. Klappt.
Nur nun habe ich das Problem, dass das Geschriebene auf dem Etikett "herumhüpft". Also nur wenn man ausdruckt.
Gibt es sowas häufiger?

Freundliche Grüsse
R.Bona

User avatar
Frank
Addict
Addict
Posts: 282
Joined: Tue Oct 24, 2006 8:51 am
Location: Germany / Minden
Contact:

Re: Von Excel importieren, leere Variablen ausblenden?

Post by Frank » Thu Sep 23, 2010 1:52 pm

Hallo,

das mit dem "X" würde ich lassen...

ich habe mal mein Test angehängt, damit Sie vergleichen können.

... ansonsten auf die letzte NiceLabel Version upgraden
Attachments
leerzellen ausblenden.zip
Etikett mit XLS
(13.1 KiB) Downloaded 238 times
Regards
Frank Breuckmann

Image
-AVERY Partner
-Intermec Fingerprint programming
no printer, no time? -> no problem, we can print for you! service@sde-web.de

bona
Enthusiast
Posts: 7
Joined: Tue Sep 21, 2010 5:31 pm

Re: Von Excel importieren, leere Variablen ausblenden?

Post by bona » Mon Sep 27, 2010 12:15 pm

So, ich melde mich zurück...
Habe Ihre Dateien und meine verglichen. Finde keinen offensichtlichen Unterschied.
Jedoch habe ich nun einmal len([Sheet1$.Zeile3]) direkt ausgegeben und bekomme da 255 bei einer leeren Zeile. Kann sich das jemand erklären?

Freundliche Grüsse
Raphael Bona

User avatar
Frank
Addict
Addict
Posts: 282
Joined: Tue Oct 24, 2006 8:51 am
Location: Germany / Minden
Contact:

Re: Von Excel importieren, leere Variablen ausblenden?

Post by Frank » Mon Sep 27, 2010 12:42 pm

Hallo Raphael,

wenn ich mein Beispiel zugrunde lege
und "msgbox len([Tabelle1$.zeile3])" eingebe
bekomme ich nur 255 zurück wenn der Datensatz noch nicht gelesen wurde.
(default Variablenlänge)
aber im Druck funktioniert alles.
also gibt es da wohl noch einen Fehler.. 8)
Regards
Frank Breuckmann

Image
-AVERY Partner
-Intermec Fingerprint programming
no printer, no time? -> no problem, we can print for you! service@sde-web.de

bona
Enthusiast
Posts: 7
Joined: Tue Sep 21, 2010 5:31 pm

Re: Von Excel importieren, leere Variablen ausblenden?

Post by bona » Tue Sep 28, 2010 11:58 am

haha, tatsächlich, habe nun einfach len(blabla) <> 0 und ausgedruckt dann gehts wirklich. Ausgedruckt ist es zentriert.
Hätte ich bloss früher mal auf drucken gedrückt.
Danke für die aufgebrachte Geduld.

Post Reply