Microsoft Excel

Herbers Excel/VBA-Archiv

Zelle kürzen

Betrifft: Zelle kürzen von: Hansp
Geschrieben am: 06.11.2013 13:26:04

Hallo!

Ich muss in einer Spalte diverse Einträge. Immer wenn in einer Zelle am Ende "und" steht, soll _ dieses gelöscht werden. Bisher habe ich das hier versucht, aber ohne Erfolg:


 Dim loZeile As Long
    With Columns("S")
        For loZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp). _
Row, Rows.Count)
        If Right(Cells(loZeile, 3), 1) = "und" Then Cells(loZeile, 3) = Right(Cells(loZeile, 3), _
 _
 1)
        Next loZeile
    End With

  

Betrifft: AW: Zelle kürzen von: Hajo_Zi
Geschrieben am: 06.11.2013 13:29:21

If Right(Cells(loZeile, 3), 1) = "und" Then Cells(loZeile, 3) = Left(Cells(loZeile, 3), Len(Cells(loZeile, 3)) - 3)

GrußformelHomepage


  

Betrifft: AW: Zelle kürzen von: Hansp
Geschrieben am: 06.11.2013 14:27:35

Hallo HaJo,

funktioniert leider nicht.
In Spalte "S" steht immer noch das "und".


  

Betrifft: ist ja auch falsch. von: Rudi Maintaire
Geschrieben am: 06.11.2013 14:37:16

Hallo,
wenn nur die letzte rechte Stelle aud "und" geprüft wird, kann das nicht klappen.

Falsch:
If Right(Cells(loZeile, 3), 1) = "und"
Richtig:
If Right(Cells(loZeile, 3), 3) = "und"

Gruß
Rudi


  

Betrifft: AW: Zelle kürzen von: Hajo_Zi
Geschrieben am: 06.11.2013 14:38:59

es wurde in Spalte C geprüft und das wurde auch gekürzt.

Gruß Hajo


  

Betrifft: AW: Zelle kürzen von: Rudi Maintaire
Geschrieben am: 06.11.2013 13:57:24

Hallo,
If Right(Cells(loZeile, 3), 3) = "und" Then Cells(loZeile, 3) = Left(Cells(loZeile, 3), Len(Cells(loZeile, 3)) - 3)

Gruß
Rudi


  

Betrifft: AW: Zelle kürzen von: Hansp
Geschrieben am: 06.11.2013 17:54:40

Hallo Rudi,

funktioniert nicht. Was mache ich falsch??
Mal die Excel-Tabelle anbei - Ohne Makro.
https://www.herber.de/bbs/user/87965.xlsx


  

Betrifft: was mache ich falsch? von: Rudi Maintaire
Geschrieben am: 06.11.2013 18:33:14

Hallo,
du durchsuchst die falsche Spalte. Code:C, Tabelle:S

Gruß
Rudi


  

Betrifft: AW: was mache ich falsch? von: Hansp
Geschrieben am: 06.11.2013 19:12:02

Sorry, ich finde es nicht...

If Right(Cells(loZeile, 3), 3) = "und" Then Cells(loZeile, 3) = Left(Cells(loZeile, 3), Len( _
Cells(loZeile, 3)) - 3)

Wäre nett, wenn Du mir sagst, welcher Wert falsch ist..


  

Betrifft: Cells(Zeile, Spalte) owT von: Rudi Maintaire
Geschrieben am: 06.11.2013 20:31:38




  

Betrifft: AW: Cells(Zeile, Spalte) owT von: Hansp
Geschrieben am: 06.11.2013 23:44:37

Also Spalte S ist nach meiner Zählung Nr. 19, right? Dann sollte das korrekt sein, oder?

Dim loZeile As Long
With Columns("S")
For loZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows. _
Count)
If Right(Cells(loZeile, 19), 3) = "und" Then Cells(loZeile, 19) = Left(Cells(loZeile, 19), Len( _
Cells(loZeile, 19)) - 3)
Next loZeile
End With

Tut's aber nicht...


  

Betrifft: AW: Cells(Zeile, Spalte) owT von: hary
Geschrieben am: 07.11.2013 09:24:49

Moin
Du holst die letzte belegte Zelle aus SpalteB(2) und die Spalte ist leer.
Also die 2 aendern in 19

1 To IIf(IsEmpty(Cells(Rows.Count, 19)), Cells(Rows.Count, 19).End(xlUp).Row, Rows. _
Count)

gruss hary


  

Betrifft: du muss natürlich auch ... von: Rudi Maintaire
Geschrieben am: 07.11.2013 09:46:32

Hallo,
in S festellen, wo die letzte Zeile ist!!!!!!!!!!!!!!
For loZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 19)), Cells(Rows.Count, 19).End(xlUp).Row, Rows.Count)

Was soll der With-Rahmen?

Gruß
Rudi

Selbst nachdenken hilft auch.


  

Betrifft: AW: Cells(Zeile, Spalte) owT von: Luschi
Geschrieben am: 07.11.2013 11:41:46

Hallo Hansp,

Du kannst Rudis Vorschlag auch so umsetzen:
IIf(IsEmpty(Cells(Rows.Count, "S")), Cells(Rows.Count, "S").End(xlUp).Row, Rows.Count)
falls es an der nötigen Anzahl von Fingern fehlt wie bei Spalte 'ABC':
IIf(IsEmpty(Cells(Rows.Count, "ABC")), Cells(Rows.Count, "ABC").End(xlUp).Row, Rows.Count)
statt:
IIf(IsEmpty(Cells(Rows.Count, 731)), Cells(Rows.Count, 731).End(xlUp).Row, Rows.Count)

Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Cells(Zeile, Spalte) owT von: Hansp
Geschrieben am: 08.11.2013 00:02:29

Danke an alle für die Hilfe.


 

Beiträge aus den Excel-Beispielen zum Thema "Zelle kürzen"