Ausgeblendetes Blatt
27.12.2020 10:13:18
Roger
Gerne würde ich in Excel ein Blatt ausblenden aber trotzdem sollte es per Makro
Beschrieben werden können.
Mit welchem Befehl und Ort kann man dies erreichen?
Public Sub Übertragen_auf_Rechnung()
Sheets(4).Select
Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Value = Date & ", " & Format(Time, "hh:mm:ss")
Dim raFund As Range
With Sheets(4)
Set raFund = .Columns(2).Find(what:=Sheets(3).Range("D5"), LookIn:=xlValues, _
lookat:=xlWhole)
If Not raFund Is Nothing Then
raFund.Offset(, 2) = Sheets(3).Range("L16")
End If
End With
Set raFund = Nothing
Sheets(3).Select
Range("G1").Select
Selection.ClearContents
End Sub