Durchsuchen von Zeilen und Spalten mittels VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim Zeile As Range dim Spalte as Range set Zeile = Columns(1).Find(what:="Suchwort1", lookat:=xlwhole, lookin:=xlvalues) set Spalte = Rows(1).find(what:="Suchwort2", lookat:=xlwohle, lookIn:=xlvalues) if Zeile is Nothing then set Zeile = Cells(rows.count, 1).end(xlup).Offset(1, 0) Zeile.Value = "Suchwort1" end if if Spalte is Nothing then set Spalte = Cells(1, columns.count).End(xltoleft).Offset(0, 1) Spalte = "Suchwort2 end if ?Etwas?.Copy Intersect(Zeile.EntireRow, Zeile.EntireColum).PasteSpecial xlpastevalues

Also mein Code sieht jetzt so aus, da etwas von einer Quelldatei in eine Zieldatei übertragen werden soll.
Allerdings gibt er mir bei Set Spalte und Set Zeile Befehlen Fehlermeldungen zurück.
An was liegt das?
Dim WBZiel As Workbook, ExportDatei As String
Dim WBQuelle As Workbook
Set WBQuelle = ThisWorkbook
Pfad = "C:.....Masterfile_150518"
Set WBZiel = Workbooks.Open(Pfad)
Dim QWS As Worksheet, ZWS As Worksheet, QWS2 As Worksheet, QWS3 As Worksheet, ZWS2 As Worksheet
Set QWS = WBQuelle.Worksheets("Allgemeine Probeninformationen")
Set QWS2 = WBQuelle.Worksheets("Diagramme")
Set QWS3 = WBQuelle.Worksheets("Druckversion_DE")
Set ZWS = WBZiel.Worksheets("Uebersicht")
Set ZWS2 = WBZiel.Worksheets("UCS")
Dim Zeile As Range
Dim Spalte As Range
Dim Suchwort1 As String
Dim Suchwort2 As String
Suchwort1 = QWS2.Range("L5")
Suchwort2 = "UCS"
Set Zeile = ZWS2.Columns(1).Find(what:="Suchwort1", lookat:=xlWhole, LookIn:=xlValues)
Set Spalte = ZWS2.Rows(1).Find(what:="Suchwort2", lookat:=xlwohle, LookIn:=xlValues)
If Zeile Is Nothing Then
Set Zeile = ZWS2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Zeile.Value = "Suchwort1"
End If
If Spalte Is Nothing Then
Set Spalte = ZWS2.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
Spalte = "Suchwort2"
End If
QWS2.Range("M39").Copy
Intersect(Zeile.EntireRow, Zeile.EntireColum).PasteSpecial xlPasteValues

Hey, vielen Dank für die Hilfe! Es funktioniert jetzt.
Nur leider habe ich noch ein kleines Problem..
Wenn Suchwort2 nicht gefunden wird, ist es nicht vorhanden. dann soll M39 nicht kopiert werden da dann die entsprechende Spalte fehlt.
wenn Suchwort2 nicht vorhanden ist bekomme ich jetzt nur eine Fehlermeldung das der intersect Befehl nicht funktioniert da Spalte Zeile nicht definiert werden konnte.
So sieht der Code jetzt aus:
Dim WBZiel As Workbook, ExportDatei As String
Dim WBQuelle As Workbook
Set WBQuelle = ThisWorkbook
Pfad = "C:\Users\---\Desktop\Masterfile_150518"
Set WBZiel = Workbooks.Open(Pfad)
Dim QWS As Worksheet, ZWS As Worksheet, QWS2 As Worksheet, QWS3 As Worksheet, ZWS2 As Worksheet
Set QWS = WBQuelle.Worksheets("Allgemeine Probeninformationen")
Set QWS2 = WBQuelle.Worksheets("Diagramme")
Set QWS3 = WBQuelle.Worksheets("Druckversion_DE")
Set ZWS = WBZiel.Worksheets("Uebersicht")
Set ZWS2 = WBZiel.Worksheets("UCS")
Dim Zeile As Range
Dim Spalte As Range
Dim Suchwort1 As String
Dim Suchwort2 As String
Suchwort1 = QWS2.Range("L5")
Suchwort2 = "UCS"
Set Zeile = ZWS2.Columns(1).Find(what:=Suchwort1, lookat:=xlWhole, LookIn:=xlValues)
Set Spalte = ZWS2.Rows(1).Find(what:=Suchwort2, lookat:=xlWhole, LookIn:=xlValues)
If Zeile Is Nothing Then
ZWS2.Rows(4 + 1).Insert
Set Zeile = ZWS2.Cells(5, 1)
Zeile.Value = Suchwort1
End If
If Spalte Is Nothing Then
MsgBox "Fehler! Suchwort2 nicht vorhanden", vbInformation + vbOKOnly, "Info"
End If
QWS2.Range("M39").Copy
Intersect(Zeile.EntireRow, Spalte.EntireColumn).PasteSpecial xlPasteValues
End Sub

... Suchwort1 = QWS2.Range("L5") Suchwort2 = "UCS" Set Spalte = ZWS2.Rows(1).Find(what:=Suchwort2, lookat:=xlWhole, LookIn:=xlValues If spalte is Nothing then MsgBox "Fehler! Suchwort2 nicht vorhanden", vbInformation + vbOKOnly, "Info" Else Set Zeile = ZWS2.Columns(1).Find(what:=Suchwort1, lookat:=xlWhole, LookIn:=xlValues) If Zeile is Nothing then ZWS2.Rows(4 + 1).Insert Set Zeile = ZWS2.Cells(5, 1) Zeile.Value = Suchwort1 end if QWS2.Range("M39").Copy Intersect(Zeile.EntireRow, Spalte.EntireColumn).PasteSpecial xlPasteValues end if

Beliebteste Forumthreads (12 Monate)

Durchsuchen von Zeilen und Spalten mittels VBA

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

9 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Durchsuchen von Zeilen und Spalten mittels VBA

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

9 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread