Wie geht das? Könnt ihr mir helfen ?
Danke!
Die Datei https://www.herber.de/bbs/user/47274.xls wurde aus Datenschutzgründen gelöscht
Sub t()
Dim zeile As Long, letzte As Long, letzteB As Long
For zeile = 6 To 10
If Cells(zeile, 4).Value = "ja" Or Cells(zeile, 4).Value = "Ja" Then
If Sheets("Tabelle2").Range("A65536").End(xlUp).Row = 5 Then
Range(Cells(zeile, 2), Cells(zeile, 3)).Copy Sheets("Tabelle2").Range("B6")
Sheets("Tabelle2").Range("A6").Value = 1
Else
Range(Cells(zeile, 2), Cells(zeile, 3)).Copy
Sheets("Tabelle2").Range("B65536").End(xlUp).Offset(0, 0).Insert
letzte = Sheets("Tabelle2").Range("A65536").End(xlUp).Row
Sheets("Tabelle2").Range("A" & letzte + 1).Value = Sheets("Tabelle2").Range("A" & letzte) _
.Value + 1
Application.CutCopyMode = False
End If
End If
Next zeile
End Sub
Gruß
Chris
Die Datei https://www.herber.de/bbs/user/47281.xls wurde aus Datenschutzgründen gelöscht
Private Sub CommandButton1_Click()
Call Auswahlt
End Sub
Danke!
Gruß
Sub t()
Dim zeile As Long
For zeile = 3 To 10
If Cells(zeile, 4).Value = "ja" Or Cells(zeile, 4).Value = "Ja" Then
Sheets("Ziel").Cells(zeile, 4).Value = Cells(zeile, 4).Value ' schreibt nur den Wert
'oder Cells(zeile, 4).Copy Sheets("Ziel").Cells(zeile, 4) ' kopiert auch die Formate, _
ausser Zellenhöhe und -breite
End if
Next zeile
End Sub
Gruß
Chris
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen