Microsoft Excel

Herbers Excel/VBA-Archiv

Eingabe von Nichts ("") schneidet Text ab

Betrifft: Eingabe von Nichts ("") schneidet Text ab von: Peter
Geschrieben am: 06.06.2008 10:45:48

Guten Tag
Ich trage mit einem Marko in der Spalte Range("Bezeichnung").Column (=D)
Bezeichungen ein, wenn auf der gleichen Zeile in Spalte A
ein numerischer Eintrag enthalten ist.

Manchmal ist dort auch ein längerer Text enthalten, der über die Spalte D hinausreicht.
Komischerweise bewirkt nun der Eintrag von nichts (.Cells(zNr, Range("Bezeichnung").Column) = ""), dass dieser Text der Spalte A ab Spalte D nicht mehr ersichtlich ist.

Was muss man vorkehren, dass Texte über die Spalte C hinaus nicht abgeschnitten werden?

Danke für jeden Hinweis.

Gruss, Peter

If IsNumeric(.Cells(zNr, Range("Valor").Column)) Then '
.Cells(zNr, Range("Bezeichnung").Column) = Evaluate("=IF(ISNUMBER(" & spBuchstabe(Range("Valor").Column) & zNr & "),IF(ISERROR(VLOOKUP(" & spBuchstabe(Range("ValWae").Column) & zNr & ",eDaten,COLUMN(tkBezeichnung),FALSE)),""Löschen"",VLOOKUP(" & spBuchstabe(Range("ValWae").Column) & zNr & ",eDaten,COLUMN(tkBezeichnung),FALSE)),"""")")
Else
.Cells(zNr, Range("Bezeichnung").Column) = ""
End If

  

Betrifft: AW: Eingabe von Nichts ("") schneidet Text ab von: Rudi Maintaire
Geschrieben am: 06.06.2008 10:52:34

Hallo,
Else
.Cells(zNr, Range("Bezeichnung").Column).clearcontents
End If

Gruß
Rudi


  

Betrifft: AW: Vielen Dank! owT von: Peter
Geschrieben am: 06.06.2008 11:53:44




 

Beiträge aus den Excel-Beispielen zum Thema "Eingabe von Nichts ("") schneidet Text ab"