Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Knodie am Dezember 26, 2016, 23:42:05 Nachmittag
-
Hallo zusammen! So langsam bin ich am verzweifeln weil ich für mein Problem noch keine geeignete Lösung gefunden habe.
Ich habe eine Excel-Tabelle in der ich die 2. Zeile als "Eingabezeile" verwende. Das heißt, ich gebe die Daten "Datum", "Uhrzeit", "Von", "Nach" und Kontaktdaten ein. Dann hab ich einen Button der einen VBA auslöst und diese Eingaben in die erst freie Zeile einfügt und mir den neuesten immer oben anreiht (nach Datum sortiert). So weit funktioniert alles bestens! Nun habe ich ein paar Zellen in meiner Eingabezeile, die Formeln enthalten und wie gewünscht, nicht mit dieser kopiert werden ABER ich habe 1 Zelle bei der die Formel mitkopiert werden muss! Wie kann ich machen?? Hat jemand von euch eine Idee?
Ich hänge mein Makro mal an! Wäre sehr froh, wenn mir jemand helfen könnte!
Vielen Dank im Voraus an alle Spezialisten!
Dietmar
' Eingabezeile Makro
'
' Tastenkombination: Strg+e
'
' erste freie Zeile
Zeile = Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
'Zeile (Inhalte) kopieren
Range(Cells(Zeile, 1), Cells(Zeile, 14)).Value = Range("A2:N2").Value
'
'Bereich löschen
Range("A2:C2,E2:N2").Select
Range("E2").Activate
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.HasFormula = True Then Else Zelle.ClearContents
Next Zelle
ActiveWindow.SmallScroll Down:=-14
Range("A3:N3").Select
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear