Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle gefüllten Zellen einer Spalte ergänzen

Forumthread: 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

Anzeige

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

Anzeige
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

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

Anzeige
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

Anzeige
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

;

Forumthreads zu verwandten Themen

Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
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
letzte Zelle mit eintrag
Jens

Hallo,
ich habe ein problem....
in einer tabelle (spalte) werden immer mehr werte eingetragen.... von A16 bis A....
in zelle A7 soll nun automatisch der letzte, also unterste wert der in der entspr. spalte eingetragen ist übernommen werden....
mfg
Jens
24.10.2008 12:17:00
Thread-ID: 1018957
4 Beiträge
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
Anzeige
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
Anzeige
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
Letzte Zelle finden
Gerhard

Hallo!
Hab eine Beispieldatei von meinen Problem gemacht. Wie bringe ich das hin dass die leere Formel ignoriert wird?
https://www.herber.de/bbs/user/58405.xls
Bitte um Hilfe
Gerhrd
14.01.2009 21:49:00
Thread-ID: 1039825
6 Beiträge
Anzeige
Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
Anzeige
Formel eintragen bis letzer Wert in anderer Spalte
Jonathan

Hallo zusammen,
ich habe mal wieder eine Frage an euch.
In Spalte E wird in E4 via VBA eine Formel eingetragen. Diese soll nun nun nach unten kopiert werden. Ende sollte der letzte Wert der Spalte F sein.
Wie kann ich das am schnellsten via Makro realisieren? Oder darf ich die Forme...
17.03.2009 17:39:15
Thread-ID: 1061170
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige