Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle gefüllten Zellen einer Spalte ergänzen

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

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

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle gefüllten Zellen einer Spalte ergänzen
10.08.2014 10:01:40
Crazy Tom
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

AW: alle gefüllten Zellen einer Spalte ergänzen
10.08.2014 10:06:50
stormlamp
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

Anzeige
AW: alle gefüllten Zellen einer Spalte ergänzen
10.08.2014 12:27:43
Werner
Hallo Tom,
Versuch mal
cells(lngZaehler, intSpalte) = cells(lngZaehler, intSpalte) & " xyz"
Werner

AW: alle gefüllten Zellen einer Spalte ergänzen
10.08.2014 10:05:05
Crazy Tom
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

Anzeige
AW: alle gefüllten Zellen einer Spalte ergänzen
10.08.2014 10:09:03
stormlamp
Hallo Tom,
vielen Dank, jetzt funktioniert es prima
Mit freundlichen Grüßen und schönen Sonntag
Hans

AW: alle gefüllten Zellen einer Spalte ergänzen
10.08.2014 10:05:06
Christian
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

AW: alle gefüllten Zellen einer Spalte ergänzen
10.08.2014 10:11:30
stormlamp
Hallo Christian,
Deine Lösung funktioniert ebenso perfekt, vielen Dank und schönen Sonntag
Hans

Anzeige

311 Forumthreads zu ähnlichen Themen

Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Anzeige
Letzte Zelle & Mittelwert
Frank

Hallo,
ich möchte den Mittelwert von z.B. A2 bis A(XYZ) ermitteln.
Die Letzte Zelle kann ich aus der Variable Letzte_Vlinie auslesen.
Wie muß die Befehlszeile in einem Makro aussehen damit xyz durch den Inhalt der Variable ersetzt wird.
Gruß und danke
Frank
05.11.2008 09:22:11
Thread-ID: 1021766
5 Beiträge
Jede Zahlenwertänderung mit Blinken der Zelle
Steffi

anzeigen.
Ist sowas möglich? HAt jemand eine Idee?
Soll nur einmal blinken, also kein Dauerblinken.
LG
Steffi
07.11.2008 19:28:58
Thread-ID: 1022795
5 Beiträge
Erste und letzte Zelle finden
Frank

Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und...
18.11.2008 09:38:00
Thread-ID: 1025505
10 Beiträge
Zellen mit bestimmtem Wert leeren
P.Mackes

ich möchte innerhalb einer gewählten range alle Zellen, die einen bestimmten Wert enthalten einfach leeren, also nicht löschen, sondern quasi den effekt, wenn man in die zelle geht und entfernen drückt
hat da jemand ein handliches makro parat?
mfg, Peter
03.12.2008 08:52:34
Thread-ID: 1029679
8 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
8
5
4
3
4
4
9
7
2
5
4
1
3
5
17
6
1
4
7
6
2
17
2
4