Microsoft Excel

Herbers Excel/VBA-Archiv

alle gefüllten Zellen einer Spalte ergänzen

Betrifft: alle gefüllten Zellen einer Spalte ergänzen von: stormlamp
Geschrieben am: 10.08.2014 09:34:58

Hallo Zusammen,

mit einem Makro möchte ich alle gefüllten Zellen einer Spalte ab (inklusive) Cursorposition am Ende durch irgendeinen String ergänzen, den ich auch im Makro definiere.

Beispiel:

Einer Variablen innerhalb des Makros weise ich den Wert "xyz" zu.
Mein Cursor steht in Zeile 5
Ergebnis:Alle Zellinhalte ab Zeile 5 in dieser Spalte haben nach dem Makrolauf am Ende xyz stehen.

Mit freundlichen Grüßen
Hans

  

Betrifft: AW: alle gefüllten Zellen einer Spalte ergänzen von: Crazy Tom
Geschrieben am: 10.08.2014 10:01:40

Hallo Hans

das könnte so gehen

Option Explicit

Sub test()
    Dim lngLetzteZeile As Long
    Dim lngZaehler As Long
    Dim lngStart As Long
    Dim intSpalte As Integer
    lngStart = ActiveCell.Row
    intSpalte = ActiveCell.Column
    lngLetzteZeile = Cells(Rows.Count, intSpalte).End(xlUp).Row
    For lngZaehler = lngStart To lngLetzteZeile
        Cells(lngZaehler, intSpalte) = "xyz"
    Next
End Sub

MfG Tom


  

Betrifft: AW: alle gefüllten Zellen einer Spalte ergänzen von: stormlamp
Geschrieben am: 10.08.2014 10:06:50

Hallo Tom,

mit Deinem Makro werden alle Werte durch xyz ersetzt, aber es wird nicht xyz an den bestehenden Zellinhalt angehangen.

Mit freundlichen Grüßen
Hans


  

Betrifft: AW: alle gefüllten Zellen einer Spalte ergänzen von: Werner
Geschrieben am: 10.08.2014 12:27:43

Hallo Tom,

Versuch mal
cells(lngZaehler, intSpalte) = cells(lngZaehler, intSpalte) & " xyz"

Werner


  

Betrifft: AW: alle gefüllten Zellen einer Spalte ergänzen von: Crazy Tom
Geschrieben am: 10.08.2014 10:05:05

Hallo nochmal

hatte das "Ergänzen" übersehen
das würde dann so aussehen

Option Explicit

Sub test()
    Dim lngLetzteZeile As Long
    Dim lngZaehler As Long
    Dim lngStart As Long
    Dim intSpalte As Integer
    lngStart = ActiveCell.Row
    intSpalte = ActiveCell.Column
    lngLetzteZeile = Cells(Rows.Count, intSpalte).End(xlUp).Row
    For lngZaehler = lngStart To lngLetzteZeile
        Cells(lngZaehler, intSpalte) = Cells(lngZaehler, intSpalte) & "xyz"
    Next
End Sub

MfG Tom


  

Betrifft: AW: alle gefüllten Zellen einer Spalte ergänzen von: stormlamp
Geschrieben am: 10.08.2014 10:09:03

Hallo Tom,

vielen Dank, jetzt funktioniert es prima

Mit freundlichen Grüßen und schönen Sonntag
Hans


  

Betrifft: AW: alle gefüllten Zellen einer Spalte ergänzen von: Christian
Geschrieben am: 10.08.2014 10:05:06

Hallo Hans,

ein Ansatz:

Sub xyz()
Dim y As Long, x As Long, z As Long
x = ActiveCell.Row
z = ActiveCell.Column
If x <= Cells(Rows.Count, z).End(xlUp).Row Then
 For y = x To Cells(Rows.Count, z).End(xlUp).Row
    If Cells(y, z) <> "" Then
       Cells(y, z) = Cells(y, z) & "xyz"
    End If
 Next y
End If
End Sub

MfG Christian


  

Betrifft: AW: alle gefüllten Zellen einer Spalte ergänzen von: stormlamp
Geschrieben am: 10.08.2014 10:11:30

Hallo Christian,

Deine Lösung funktioniert ebenso perfekt, vielen Dank und schönen Sonntag
Hans


 

Beiträge aus den Excel-Beispielen zum Thema "alle gefüllten Zellen einer Spalte ergänzen"