Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
216to220
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
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte finden und Kopieren

Werte finden und Kopieren
13.02.2003 11:39:56
Joerg
Hallo Fprum,

ich brauche wieder mal Unterstützung bei folgendem Problem:
ich habe ein code im Forum bekommen der mir einen Wert sucht und dann bestimmte zeilen in eine andere Mappe kopiert.
nun habe ich das Problem das nur die Spalten A:D in die neu Mappe kopiert werden soll.
Der Code findet aber auch nicht die letzte zeile in der Auswertung und fügt den Inhalt immer in die Zeile 2 ein.

Wer kann mir hier weiterhelfen.

Der Code:

Public Sub Auswerten_temp()
Dim lngRow As Long, lngRowDest As Long
Dim intCounter As Integer, intCopyCount As Integer
Dim varKrit As Variant, varFind As Variant
Application.ScreenUpdating = False
varKrit = Sollwerte.TextBox1.Value
If varKrit = "" Then Exit Sub
With Worksheets("Simpati-Daten").Range("D:D")
Set varFind = .Find(What:=varKrit, After:=Range("D1"), _
LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious, _
MatchCase:=True)
If Not varFind Is Nothing Then
intCounter = 1
lngRow = varFind.Row
With Worksheets("Auswert").Range("D:D")
lngRowDest = .Range("D65536").End(xlUp).Row - 1
End With
Do
If Cells(lngRow - 5 * intCounter, varFind.Column).Value = varFind Then
intCopyCount = intCopyCount + 1
Rows(lngRow - 5 * intCounter).Copy _
Destination:=Worksheets("Auswert").Range("A" & _
lngRowDest + intCopyCount)
End If
intCounter = intCounter + 1
If intCopyCount = 5 Then Exit Do
Loop Until lngRow - 5 * intCounter < 1
Else: MSGbox "Sollwert 1 """ & varKrit & """ wurde nicht gefunden"
End If
End With
Application.ScreenUpdating = True
End Sub

Danke schon mal Joerg

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

Betreff
Datum
Anwender
Anzeige
Re: Werte finden und Kopieren
13.02.2003 12:45:06
Udo RiHü

Hallo,
die Definition von lngRowDest ist falsch es muss am Ende +1 heißen.
Wenn du dir den entsprechenden Abschnitt deines Codes durch den unten stehenden Code ersetz, müsste es klappen (ohne Garantie)

With Worksheets("Auswert").Range("D:D")
lngRowDest = .Range("D65536").End(xlUp).Row + 1
End With
Do
If Cells(lngRow - 5 * intCounter, varFind.Column).Value = varFind Then
intCopyCount = intCopyCount + 1
Range(cells(lngRow - 5 * intCounter,1),cells(lngRow - 5 * intCounter,4)).Copy _
Destination:=Worksheets("Auswert").Range("A" & _
lngRowDest + intCopyCount)
End If

Gruss aus'm Pott
Udo

Anzeige
Re: Werte finden und Kopieren
13.02.2003 12:55:32
Joerg

Hi Udo,

leider nein wenn die Tabelle komplett leer ist,
so fügt er mir die Daten erst in die 3 Ziele ein.
dies hatte ich auch schon probiert.

gruß Jörg

Re: Werte finden und Kopieren
13.02.2003 12:55:37
Joerg

Hi Udo,

leider nein wenn die Tabelle komplett leer ist,
so fügt er mir die Daten erst in die 3 Ziele ein.
dies hatte ich auch schon probiert.

gruß Jörg

anderes Problem
13.02.2003 13:32:25
Joerg

Hi,

wenn ich den oben genannten code ausführe, wenn die tabelle leer
ist ,so wird die erste Zeile leer gelassen und ich bekomme nur
4 weitere Zeilen mit werten unten angehangen.
Wenn ich den Code ausführe wenn schon Werte in der Tabelle vorhanden sind so funktioniert die ganze sache.

Jörg


Anzeige
Re: anderes Problem
13.02.2003 20:47:21
Udo RiHü

Hallo,
anscheinend wird davon ausgegangen (was ja normal ist), dass sich in der ersten Zeile Überschriften befinden. Die sollen ja nicht überschrieben werden.

With Worksheets("Auswert").Range("D:D")
lngRowDest = .Range("D65536").End(xlUp).Row
End With
if lngrowdest>1 then lngrowdest=lngrowdest+1

verschafft Abhilfe.

Gruss aus'm Pott
Udo


Re: anderes Problem
18.02.2003 08:24:02
Joerg

HI Udo,

leider bringt dies auch nicht,
da nun 2 Zeilen über den Werten leer sind.

Gruß Jörg

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige