Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Zelle nicht leer ?

Bild

Betrifft: Zelle nicht leer ?
von: Jürgen

Geschrieben am: 08.01.2007 22:04:54
Hallo
ich bin gerade dabei ein Makro zu schreiben und habe folgendes Problem:
folgender Text:
übergabewert = Sheets(blatt & nummer).Range("e" & a) 'Zellinhalt in Variable lesen
If übergabewert <> "" Or übergabewert = " " Then
spalte2 = Sheets(blatt & nummer).Range("B" & a)
If spalte2 < 1 Or spalte2 > 3 Then spalte2 = 1
eintrag = blatt & "-" & nummer & "-" & Sheets(blatt & nummer).Range("A" & a) & "-" & spalte2
Call daten_eintragen
End If
Jetzt habe ich das Problem das manchmal nach auslesen einer Zelle der Wert
der Variablen 'übergabewert' nicht "" ist sondern " ".
Habe schon versucht das abzufangen (siehe Code), jeddoch wird der Inhalt des
If .... Then Block dennoch ausgeführt.
Wie kann ich das verhindern ? Da es sich um eine Arbeitsmappe mit zig Blättern handelt, wäre das ändern der leeren Zellen sehr aufwendig.
Gruß Jürgen
Bild

Betrifft: AW: Zelle nicht leer ?
von: Sigi

Geschrieben am: 08.01.2007 22:14:44
Hi Jürgen,
vielleicht reicht ja schon der Behfehl Trim ... (= löscht überflüssige Blanks raus)
Sub Test()
übergabewert = Sheets(blatt & nummer).Range("e" & a)
If Trim(übergabewert) <> "" Then
spalte2 = Sheets(blatt & nummer).Range("B" & a)
If spalte2 < 1 Or spalte2 > 3 Then spalte2 = 1
eintrag = blatt & "-" & nummer & "-" & Sheets(blatt & nummer).Range("A" & a) & "-" & spalte2
Call daten_eintragen
End If
End Sub

Gruß
Sigi
Bild

Betrifft: AW: Zelle nicht leer ?
von: Jürgen
Geschrieben am: 08.01.2007 22:27:26
Hallo Sigi,
man ich danke Dir, hat ganz klar geholfen.
Gruß Jürgen
Bild

Betrifft: AW: Zelle nicht leer ?
von: Jürgen

Geschrieben am: 09.01.2007 15:49:24
Hallo,
nachdem mein Problem eigentlich behoben war besteht es in gewisser Weise nun wieder.
Ich habe das Makro bei mir daheim laufen lassen und es lief fehlerfrei.
Jetzt habe ich es bei uns im Betrieb eingefügt. Zuerst wollte er alle Variablen der for next schleifen dimensoniert haben (dim a ..usw.).
Danach brachte er mir bei dem Befehl Trim(übergabewert) den Fehler:
Objekt oder Prozedur nicht vorhanden.
Gibt es noch eine andere möglichkeit bezüglich meinem Treat?
Gruß Jürgen
Bild

Betrifft: AW: Zelle nicht leer ?
von: Jens
Geschrieben am: 09.01.2007 21:47:16
Hi,
das klemmt was bei den Verweisen, versuch mal:
VBA.Trim(übergabewert)
mfg Jens
 Bild