Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
916to920
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erste Zelle mit Wert finden und vervielfachen

Erste Zelle mit Wert finden und vervielfachen
15.10.2007 09:28:48
stargate
Hallo zusammen,
nachdem ich schon zahlreiche eurer super hilfreichen Beiträge für meine Zwecke nutzen konnte, bin ich nun diesmal zum allerersten mal nicht fündig geworden und wende mich deshalb direkt an euch.
Folgende Herausforderung (zumindest für mich):
Ich habe eine Tabelle mit einem Tabellenblatt (Inhalt nur Werte) mit A:DL Spalten und beliebig vielen Zeilen (zur Zeit ca. 1000). Spalte A sieht folgendermassen aus:
A B C D
Personalnummer
1000
leer
leer
2000
leer
leer
leer
leer
leer
leer
3000
etc.
Nun möchte ich gerne per Marko, den ersten Wert finden (e.g. 1000), diesen kopieren, in die darunterliegenden noch leeren Zellen einfügen und zwar solange bis ein neuer Wert (2000) gefunden wird, dann soll er diesen neuen Wert nehmen und den entsprechend weiter einfügen. Das Ergebnis soll so aussehen.
A B C D
Personalnummer
1000
1000
1000
2000
2000
2000
2000
2000
2000
2000
3000
etc.
Sinn und Zweck der ganzen Aktion ist, dass ich die Tablle in einem nachfolgenden Schritt nach bestimmten Kriterien sortieren will (unter anderem Pers.Nr.) und deshalb in jeder Zeile die Pers.Nr. drinstehen muss!
Vielen Dank vorab für jegliche Hilfe
Stargate

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erste Zelle mit Wert finden und vervielfachen
15.10.2007 09:45:51
Mac4
Moin,
markiere die Spalte A - F5 - Inhalte - leere Zellen - dann in Formelleiste ein Gleichheitszeichen und klick auf die erste gefüllte Zelle - die Aktion mit Strg+Enter abschließen!
Marc

AW: Erste Zelle mit Wert finden und vervielfachen
15.10.2007 09:46:00
Worti
Hallo Stargate,
zB. mit VBA so:


Sub Stargate()
    Dim lngZeile As Long
    Dim lngEnde As Long
    lngZeile = 1
    'ersten Wert in Spalte A suchen
    Do While Cells(lngZeile, 1) = ""
      lngZeile = lngZeile + 1
    Loop
    lngEnde = Cells(Rows.Count, 1).End(xlUp).Row
    Do
      If Cells(lngZeile, 1).Offset(1, 0).Value = "" Then
         Cells(lngZeile, 1).Offset(1, 0).Value = Cells(lngZeile, 1).Value
      End If
         lngZeile = lngZeile + 1
     Loop Until lngZeile >= lngEnde
End Sub


Gruß Wort
Anzeige
@Worti
15.10.2007 10:17:00
Jens
Hi Worti
Hast Du mal Deinen Code getestet?
Die letzte aufgeführte Per.-Nr. wird aber nicht mehr weiter ausgefüllt.
Da sollte man vielleicht eine Abfrage einbauen, um zu Prüfen, welches die letzte gefüllte Zeile ist.
Ansonsten würde der Code nur bis genau zum letzten Eintrag in Spalte A laufen.
Es wäre aber möglich, dass der letzte Daten-Eintrag in Spalte "X" steht.
Dann müsste die letzte Zeile etwa so definiert werden:
lngEnde = Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Nur als Info.
Schönen sonnigen Tag noch.
Gruß aus dem Sauerland
Jens

Anzeige
AW: @Worti
15.10.2007 11:07:29
Worti
Hallo Jens,
das war mir wohl bewußt, aber in Ermanglung weiterer Infos würd es sonst bis zur letzten Zeile laufen (und dann auf Fehler ;-) )
Gruß Worti

AW: Erste Zelle mit Wert finden und vervielfachen
15.10.2007 09:57:00
stargate
Habs doch gefunden, hab am Anfang unter einem total falschen Stichwort gesucht ;-)
hier für alle dies interessiert die gefundene Lösung

Sub CopyCells()
Dim iRow As Integer
iRow = 2
Do Until Cells(iRow, 1).Value = "Stop"
If IsEmpty(Cells(iRow, 1)) Then
Cells(iRow, 1).Value = Cells(iRow - 1, 1).Value
End If
iRow = iRow + 1
Loop
End Sub


AW: Erste Zelle mit Wert finden und vervielfachen
15.10.2007 09:59:35
stargate
hey, vielen lieben Dank für eure Hilfe, die Lösungen funktionieren auch,
hab sie gerade gesehen
tausend Dank und bis zum nächsten Mal :-)
Anzeige

300 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
Zelle mit heutigem Datum finden
Steffi

Hallo liebe Spezialisten,
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt...
05.09.2008 11:46:00
Thread-ID: 1007634
12 Beiträge
Zellenhöhe mit Zelleninhalt berechnen
Christoph

Hallo,
ich möchte das vba-skript von https://www.herber.de/forum/archiv/1004to1008/t1006435.htm
(ganz unten) gerne etwas anpassen, und zwar so, dass die Zellenhöhe direkt aus dem Zelleninhalt berechnet wird. Hier ist mein Versuch, der aber leider nicht funkti0oniert:
Sub zeilenhö...
24.09.2008 17:32:00
Thread-ID: 1012131
8 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
erste numerische Zelle finden
marcl

Moin zusammen,
ich möchte im gesamten Blatt die erste numerische Zelle finden.
Ich dachte dabei an Find+IsNumeric, komme damit aber nicht weiter. Kann mir jemand helfen?
Danke
Gruß
marcl
05.11.2008 10:37:00
Thread-ID: 1021787
16 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 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
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
Anzeige

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
5
11
7
2
4
15
2
4
4
9
7
7
2
4
3
4
5
1
2
2
16
17
3
6