Office: Nächste Frei Zelle ab Zeile = A1

Blacky1980 · 26. November 2020

Moin Moin zusammen,

ich bräuchte mal Hilfe von euch Profis.

Mit folgenden Code kopiere ich Daten von Tabellenblatt "Geräte Daten" nach "Geräte Barcode".

Code:

Sub Schaltfläche7_Klicken()
Dim Q As Worksheet, Z As Worksheet
Dim i As Long
Set Q = Worksheets("Geräte Daten")
Set Z = Worksheets("Geräte Barcodes")

For i = 3 To Q.Cells(Rows.Count, 2).End(xlUp).Row
If Q.Cells(i, 13) = "X" Or Q.Cells(i, 13) = "x" Then
Z.Cells(Z.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row, 3) = Q.Cells(i, 2)
Q.Cells(i, 13).ClearContents
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das funktioniert auch bestens. Nun möchte ich aber, dass die Daten ab Zeile, die in A1 steht in Spalte C kopiert.

Mit dem folgenden Code bekomme ich es schon hin, dass er mir anhand voll A1 die Spalte wählt und einen Text einträgt.

Code:

Sub Schaltfläche9_Klicken()
vStartCol = 1
vStartRow = Worksheets("Geräte Barcodes").Range("A1").Value
Cells(vStartRow, vStartCol) = "Hallo1"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun muss ich die beide Codes irgendwie so zusammen bekommen das es auch funktioniert. Ich habe absolute kein Plan wie ich dies bewerkstelligen soll.

Ich hoffe ich konnte mich verständlich ausdrücken.

Gruß Michael

:)

Blacky1980 · 28. November 2020

Hat nicht vieleicht jemand eine Idee für mich?

Einfach von Tabellenblatt "Geräte Daten" nach "Geräte Barcodes" kopieren wenn in Spalte M ein "X" steht in die Zellen unterhalb der Zeile die in A1 angegeben ist.

z.B

TB "Geräte Daten" steht in M5 ein "X" dann soll B5 in TB "Geräte Daten" in C3 kopiert werden. Spalte ist immer C und die Zeile 5 kommt aus der Zelle A1. Es kann ein Wert sein können aber auch mehrere sein.

Martin_Q · 29. November 2020

Hallo Blacky 1980!

Dürfte man deine Datei haben um sich dass genauer ansehen zu können?

Blacky1980 · 30. November 2020

Hallo Martin

Anbei die Test-Mappe

Gruß Michael

hary · 30. November 2020

Moin
Fuer mich etwas verwirrend deine Beschreibung.
Warum gibst du die Zeile in A1 vor??
Aber teste mal.
Code:

Dim Q As Worksheet, Z As Worksheet
Dim i As Long, vStartRow As Long
Set Q = Worksheets("Geräte Daten")
Set Z = Worksheets("Geräte Barcodes")
vStartRow = Z.Cells(1, 1) + 1
For i = 3 To Q.Cells(Rows.Count, 2).End(xlUp).Row
If UCase(Q.Cells(i, 13)) = "X" Then
Z.Cells(vStartRow, 3) = Q.Cells(i, 2)
Q.Cells(i, 13).ClearContents
vStartRow = vStartRow + 1
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Blacky1980 · 1. Dezember 2020

Hallo Hary,

danke für die hilfe klappt. Das mit A1 hatte sich in der Orginal Datei auf J1 geändert. Habe nur die ganze Zeit mit der Test Mappe getestet.

Vielen vielen Dank

Würde es Dir etwas ausmachen mir den Code genau zu erklären wie wo was passiert.

Gruß Michael

hary · 1. Dezember 2020

Moin Michael
Ist kein Hexenwerk. Koenntest du auch nachvollziehen. ;-)
Code:

Dim Q As Worksheet, Z As Worksheet
Dim i As Long, vStartRow As Long
Set Q = Worksheets("Geräte Daten")
Set Z = Worksheets("Geräte Barcodes")
vStartRow = Z.Cells(1, 1) + 1 '--uebergibt die Zeilennummer plus 1
For i = 3 To Q.Cells(Rows.Count, 2).End(xlUp).Row '--Schleife
If UCase(Q.Cells(i, 13)) = "X" Then '--UCase wandelt in Grossbuchstaben um
Z.Cells(vStartRow, 3) = Q.Cells(i, 2)
Q.Cells(i, 13).ClearContents
vStartRow = vStartRow + 1 '--erhoeht Zeilennummer um 1 bei jedem Treffer(X)
End If
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Blacky1980 · 2. Dezember 2020

Hallo Hary,

ich danke Dir so kann ich auch was dazu lernen.

Gruß Michael

Office: Nächste Frei Zelle ab Zeile = A1

Nächste Frei Zelle ab Zeile = A1

Nächste Frei Zelle ab Zeile = A1

Nächste Frei Zelle ab Zeile = A1

Nächste Frei Zelle ab Zeile = A1

Nächste Frei Zelle ab Zeile = A1 - Similar Threads - Zelle Zeile

Zelle aus einem Blatt merken, in anderem Blatt suchen und in der Zeile andere Spalte überschreiben

Wenn in Zeile bestimmter Wert dann ganze Zelle kopieren

Zellen pro Zeile vergleichen in zwei Spalten

Zeilen aufgrund von bestimmten Informationen in anderes Tabellenblatt kopieren

VBA Makro, einzelne Zellen kopieren und in fortlaufende Zeile einfügen

Wenn Formelergebnis leer Zelle ergibt, ganze Zeile Löschen

Aktive Zeile dauerhaft markieren