Kopiere ohne Formatierung
22.09.2020 13:58:49
Zimmer
Sub ?bernahme()
'On Error Resume Next
If Tabelle1.Range("C1").Value = "" Then
MsgBox ("Kommission fehlt du d?del:-)")
Exit Sub
End If
Dim Kommission As String
Dim Erstellt As String
Dim Artikelnummer As String
Dim Artikelname As String
Dim St?ckzahl As String
Dim wb As Workbooks
Dim blnOffen As Boolean
Dim Vers1 As String
Dim Vers2 As String
Dim Vers3 As String
Dim Vers4 As String
Dim Vers5 As String
Dim Vers6 As String
Dim Vers7 As String
Dim Vers8 As String
Dim Vers9 As String
Dim Vers10 As String
Dim Vers11 As String
Dim Vers12 As String
Worksheets("Tabelle1").Select
Kommission = Range("C1")
Erstellt = Range("B1")
Artikelnummer = Range("I4")
Artikelname = Range("J4")
Stückzahl = Range("D1")
Vers1 = Range("H4")
Vers2 = Range("H5")
Vers3 = Range("H6")
Vers4 = Range("H7")
Vers5 = Range("H8")
Vers6 = Range("H9")
Vers7 = Range("H10")
Vers8 = Range("H11")
Vers9 = Range("H12")
Vers10 = Range("H13")
Vers11 = Range("H14")
Vers12 = Range("H15")
Workbooks.Open FileName:="\\Prduktionsplanung\Aufträge\Auftrag makros\ _
Zusammenfassung_Rahmenrohr.xlsm"
Workbooks("Zusammenfassung_Rahmenrohr.xlsm").Worksheets("Gesamt").Activate
Worksheets("Gesamt").Range("A10").Select
If Worksheets("Gesamt").Range("A10").Offset(1, 0) "" Then
Worksheets("Gesamt").Range("A10").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Erstellt
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Kommission
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Artikelnummer
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Artikelname
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = St?ckzahl
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vers1
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vers2
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vers3
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vers4
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vers5
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vers6
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vers7
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vers8
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vers9
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vers10
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vers11
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Vers12
MsgBox "in Zusammenfassung übernommen!"
Application.CutCopyMode = False
End Sub
Das ist der Code um den es sich dreht, allerdings wird beim Kopieren wahrscheinlich die Zellenformatierung mit kopiert, in dem anderen Tabellenblatt will ich mit der =SVERWEIS(MIN($F$11:$F$13);$F$11:$F$13;1;FALSCH)
Funktion nach dem aktuellsten Versanddatum filtern, dies funktioniert leider jetzt nicht mehr, könnte mir bitte jemand dabei helfen?