Seid gegrüßt...
Ich bin Zahnmedizinstudent und sitze gerade an meiner Dr.-Arbeit und bin nicht gerade excel-bewandert...
Sub copyandpaste()
For Each Zelle In Range("D1:D26")
If (Zelle.Value) = "Natrium" Then
###Zelle.Activate###
Dim positionrow As Integer
Dim positioncolumn As Integer
positionrow = ActiveCell.Row
postitioncolumn = ActiveCell.Column
'erste Tabellenblatt: Zeile wird herauskopiert
Worksheets("Tabelle2").Cells(positionrow, postitioncolumn + 1).Copy
Workbooks("übung.XLS").Activate
Worksheets("Tabelle2").Paste Destination:=Worksheets("Tabelle2").Cells(positionrow, postitioncolumn +1)
' MsgBox ("Daten wurden herauskopiert!")
Else
' MsgBox ("Keine relavanten Daten!")
End If
Next
End Sub
Ich hoffe es ist einigermaßen ersichtlich was ich vorhabe.
Also es geht darum dass ich in der Spalte D (Bsp. D2) verschiedene Stoffe habe. Wenn dann als Stoff Natrium auftaucht soll ab Spalte E (Bsp. E2) bis zum Ende der Tabelle (Bsp. IV2) alles herauskopiert werden. und dann in eine neue Tabelle kopiert werden.
da dieses Natrium natürlich nicht nru einmal vorkommt wollte ich hlt ne reihenabfrage machen, aber irgendwie kriege ich in nicht dazu die Zellen zu aktivieren bzw. die richtigen zellen zu kopieren. Ich habe durchaus gesehen dass ich aktuell nur eine Zelle markiere, da ich mit dem rangebefehl da irgendwie nicht weiterkomme... naja ich hoffe mal ihr könnt mir helfen |