Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
460to464
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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro- autofill

Makro- autofill
27.07.2004 14:49:12
Anton
Hallo Forum,
Ich möchte eine Excel Tabelle, mit Hilfe eines Makros, automatisch einen Wert berechnen Lassen. Das teilen und verketten von Spalte A und E ist kein Problem. Der Makro soll aber (zum Beispiel in Zelle B16-B19) bis der Wert "Koart-GR" in Spalte E erreicht ist, die Spalte B ausfüllen mit dem gleichen Wert wie im Anfang der Gruppe (in diese Beispiel der Wert von Zelle B15). Nicht jede Gruppe is gleich gross und die grösse kann sich jede Monat ändern! Hat einer von euch eine Lösung?
Danke im voraus.
Anton
https://www.herber.de/bbs/user/8939.xls

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro- autofill
André
Hallo Anton,
ich würde es so lösen:
Diese Formel in B18 eintragen,
und so weit runterkopieren wie Du es brauchst.
=WENN(B17="";"";B17)
Gruß
AndréL.
AW: Makro- autofill
27.07.2004 15:10:12
Anton
So tu ich es normalerweise auch, aber funktioniert in den Makro leider nicht. Wie gesagt ändert sich die Tabelle jede Monat. Trotzdem danke.
Anton
AW: Makro- autofill
André
In welchem MAKRO ?
Ich kann keines erkennen.
Wenn Du schon einen Codeschnipsel hast
warum postest Du ihn nicht?
AndréL.
AW: Makro- autofill
27.07.2004 15:43:18
anton
Problem jetzt gelösst. Danke.
Anton
AW: Makro- autofill
27.07.2004 15:19:59
Roland
Hallo Anton,
wenn es denn mit VBA gehen soll versuchs mal so

Sub auffuellen()
Dim i As Integer
For i = 2 To Range("B65536").End(xlUp).Row
If Cells(i, 2).Value <> "" And _
Cells(i + 1, 5).Value <> "Koart-GR" Then
Cells(i + 1, 2).Value = Cells(i, 2).Value
End If
Next
End Sub

Gruß
Roland
Anzeige
AW: Makro- autofill
27.07.2004 15:42:34
Anton
Hat leider nicht funktioniert, aber Problem wurde schon von
einem anderen Forummitglied erfolgreich gelösst. Danke.
Anton
AW: Makro- autofill
27.07.2004 15:33:27
Heinz
Hallo Anton,
vielleicht so:

Sub Kost_autofill()
Dim i%
For i = 1 To Cells(Rows.Count, 5).End(xlUp).Row
If Cells(i, 5).Value <> "Koart-GR" And Cells(i, 5).Value <> "" And Cells(i, 2).Value = "" Then
Cells(i, 2).Value = Cells(i - 1, 2).Value
End If
Next
End Sub

Gruß
Heinz
AW: Makro- autofill
27.07.2004 15:40:53
Anton
Das ist es. Eine kleine Anpassung und es funktioniert.
Ich versuche jetzt zu verstehen was den Makro genau tut,
aber es klappt.
Vielen dank.
Anton
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige