Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
552to556
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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AUTOAUSFÜLLEN

AUTOAUSFÜLLEN
26.01.2005 15:07:06
Bruen
Hallo,
möchte via Code ähnlich wie Funtion AUTOAUSFÜLLEN die Spalten C und F einer Excel-Datei mit dem Text solange auffüllen, bis ein neuer Text bzw neuer Eintrag kommt.
Vielen Dank im voraus.
Bruen

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AUTOAUSFÜLLEN
26.01.2005 15:17:49
Andi
Hi,
suchst Du sowas (Beispiel für die ersten 20 Zeilen)?

Sub Ausfuellen()
Dim zeile As Integer
Dim spalte_c As String
Dim spalte_f As String
For zeile = 1 To 20
If Cells(zeile, 3).Value <> "" Then
spalte_c = Cells(zeile, 3).Value
Else
Cells(zeile, 3).Value = spalte_c
End If
If Cells(zeile, 6).Value <> "" Then
spalte_f = Cells(zeile, 6).Value
Else
Cells(zeile, 6).Value = spalte_f
End If
Next zeile
End Sub

Schönen Gruß,
Andi
AW: AUTOAUSFÜLLEN
26.01.2005 15:24:23
Bruen
Hallo Andi,
sowas hab ich gesucht.
Allerdings weiss ich manchmal nicht wieviel Zeilen das Sheet hat.
Könntest Du mir da nochmals helfen.
Anzeige
AW: AUTOAUSFÜLLEN
26.01.2005 15:47:57
Andi
Hi nochmal,
hilft das vielleicht?
Wie viele Zellen nach der letzten, in der sich ein Eintrag befindet, noch ausgefüllt werden sollen, kann das Makro natürlich auch nicht wissen, deshalb hört es jetzt bei der jeweils letzten ausgefüllten Zelle auf (für jede Spalte getrennt).

Sub Ausfuellen()
Dim zeile As Integer
Dim spalte_c As String
Dim spalte_f As String
For zeile = 1 To Range("C65536").End(xlUp).Row
If Cells(zeile, 3).Value <> "" Then
spalte_c = Cells(zeile, 3).Value
Else
Cells(zeile, 3).Value = spalte_c
End If
Next zeile
For zeile = 1 To Range("F65536").End(xlUp).Row
If Cells(zeile, 6).Value <> "" Then
spalte_f = Cells(zeile, 6).Value
Else
Cells(zeile, 6).Value = spalte_f
End If
Next zeile
End Sub

Anzeige
AW: AUTOAUSFÜLLEN
26.01.2005 15:53:10
Bruen
Hallo Andi,
super - herzlichen Dank.
Ich glaube jetzt muss ich endlich den VBA-Kurs machen.
Bruen
Gern geschehen... (ot)
26.01.2005 15:57:59
Andi
.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige