Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
928to932
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
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen automatisch füllen wenn

Zellen automatisch füllen wenn
02.12.2007 17:09:42
Antje
Hallo liebe Excelgemeinde,
ich mache Eingaben im Bereich von B1bis C5000. Wenn ich in die aktive Zelle der Spalte B ein a eingebe,
dann wird "Teil" in die aktive Zelle und "Menge" in die Nachbarzelle geschrieben.
Nun müsste nach der maximalen Zahl gesucht werden wenn als letztes "Teil" und "Menge" im Bereich B1:C5000 steht.
Die maximale Zahl ist zwischen den Zellen wo Menge steht zu suchen und mit der Zelle $E$1 zu vergleichen.
In dem Beispiel https://www.herber.de/bbs/user/48178.xls
ist das Maximale 35 aus der Zelle C10. Wenn das Maximum >= der Zelle E1 ist, dann soll nicht geschehen.
Wenn aber das Maximum Das Ergebniss wäre 2.
Die 2 gibt nun vor, das der Bereich von B8:C11 kopiert wird und 2 mal beginnend ab B12 eingefügt werden soll.
So wie es aussehen soll ist im Blatt 1 ersichtlich.
Hat dafür jemand ein Makro
Ich freue mich auf jede Antwort!
MFG Antje

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen automatisch füllen wenn
03.12.2007 08:45:00
fcs
Hallo Antje,
passe die Prozedur wie folgt an, dann wird entsprechend kopiert.
Gruß
Franz

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
For Each zelle In Worksheets("Eingabe").Range("B1:C5000")
If zelle.Value = "" Then
zelle.Select
Exit For
End If
Next zelle
Dim rg As Range, ZeileL As Long, Zeile1 As Long, Maxwert As Double, i As Integer
On Error GoTo ERRORHANDLER
For Each rg In Target
If Cells(rg.Row, 2) = "a" And Cells(rg.Row + 0, 2)  "Teil" Then
Cells(rg.Row + 0, 2) = "Teil"
Cells(rg.Row + 0, 3) = "Menge"
ZeileL = rg.Row
Zeile1 = ZeileL
Do Until Cells(Zeile1 - 1, 3).Value = "Menge"
Zeile1 = Zeile1 - 1
Loop
Maxwert = Application.WorksheetFunction.Max(Range(Cells(Zeile1, 3), _
Cells(ZeileL - 1, 3)))
If Maxwert 


Anzeige
AW: Zellen automatisch füllen wenn
03.12.2007 13:54:00
Antje
Hallo Franz,
habe nicht gedacht das dies zu lösen ist.
Du bist echt genial eine SUPER LÖSUNG.
Vielen, vielen DANK das funktioniert wirklich wunderbar!!!
MFG Antje

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige