deinen Nachtrag gerade noch gelesen und Code (hoffentlich richtig) geändert.
Code:
Sub prcListe()
Dim rngWert As Range
Dim lngC As Long
lngC = 1
With Worksheets("Start")
.Range("A:J").ClearContents
Do Until IsEmpty(.Cells(lngC, 11).Value) Or .Range("L1").Value < lngC
Set rngWert = Worksheets("Daten").Columns(1).Find(.Cells(lngC, 11).Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngWert Is Nothing Then
rngWert.Copy .Cells(lngC, 1)
rngWert.Offset(, 1).Resize(, 7).Copy .Cells(lngC, 4)
lngC = lngC + 1
End If
Loop
End With
End Sub
Gruß Stefan Win 10 / Office 2016
Folgende(r) 1 Nutzer sagt Danke an Steffl für diesen Beitrag:1 Nutzer sagt Danke an Steffl für diesen Beitrag 28 • Angelina
Ich verstehe es leider immer noch nicht. Du hast in der Spalte K folgende Werte stehen. 1000, 800, 600, 400, 399.
In der Spalte A aber hast Du nur den Wert 1000 stehen und 999, 998, 997 usw. Heißt das Du willst den Wert aus K1 und alle Werte aus den Bereich K1-Wert aus der Zelle L1? Und wie verhält es sich bei Werten von 400 und 399?
du lässt leider nach mit Deinen Erklärungen. Mit Bacon allein kommt man nicht weiter, hast Du ja gesehen.
teste mal:
Code:
Option Explicit
Private Sub CommandButton1_Click()
Call Liste
End Sub
Sub Liste()
'=============================================================================
' Auswahl Zeile aus Datenbank
'=============================================================================
Dim lngZ As Long
Dim i As Long, j As Long
Dim R
Dim Takt As Long
Takt = Range("L1")
Columns("A:J").ClearContents
lngZ = Cells(1, 11).End(xlDown).Row
For i = 1 To lngZ
If Cells(i, 11) < Takt Then
MsgBox "Auswahlzeile muß mindestens " & Takt & " sein !", vbOKOnly, "Hinweis"
Exit Sub
End If
With Sheets("Daten")
R = Application.Match(Cells(i, 11), .Columns("A"), 0)
If IsNumeric(R) Then
For j = 1 To Takt
Cells(j, 1).Value = .Cells(R, 1).Value
Range(Cells(j, 4), Cells(j, 10)).Value = .Range(.Cells(R, 2), .Cells(R, 9)).Value
R = R - 1
Range("L2") = "'" & j & " / " & Takt
Next j
End If
End With
Next
End Sub
Gruß Atilla
Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:1 Nutzer sagt Danke an atilla für diesen Beitrag 28 • Angelina