Microsoft Excel

Herbers Excel/VBA-Archiv

Tabelle erweitern


Betrifft: Tabelle erweitern
von: Thomas
Geschrieben am: 16.12.2018 12:18:24

Hallo Excelfreunde,

ich habe eine freigegeben Tabelle. Diese ist mit einigen Formeln und Formatierungen belegt.

Wie kann man es hinbekommen das diese immer mindestens vier formatierte Zeilen bereithält.

So ähnlich wie sie die Tabellentools es machen. ( kann ich leider in einer freigebenden Tabelle nicht nutzen)

Zum Beispiel in spalte A ein wert eingeben und die Formatierungen und Formel für die nächste Zeile ( oder besser in den nächsten 4 Zeilen) bereitstellen.

Die Datenbereichserweiterung ( Excel intern ) greift leider nicht.

habt schon mal recht vielen dank für euer Interesse.

MFG Thomas

  

Betrifft: nur noch das select entfernen
von: Thomas
Geschrieben am: 16.12.2018 21:00:51

Hallo Excelfreunde,

ich habe es fast geschafft muss nur noch das select entfernen.

Das schaffe ich einfach nicht.

Könnt Ihr mal schauen?

Private Sub CommandButton1_Click()


'Sub Leerzeile()
Dim Zeile As Long
Dim LastRow


On Error Resume Next 


If Cells(ActiveCell.Row, 1).Offset(4, 0).HasFormula = False Then
MsgBox "nein ist keine formel drin"

'Sheets("tabelle1").Range(.Cells(LastRow - 1, 1), .Cells(LastRow, 10)).Copy Range("A" & Rows. _
Count).End(xlUp).Offset(1, 0)

With Sheets("tabelle1")
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range(.Cells(LastRow - 3, 1), .Cells(LastRow, 10)).Copy
        .Range("A65536").End(xlUp).Offset(1, 0).Select
        .Paste
    End With
    
 
Else

MsgBox "ja ist eine Formel drinn"

End If


End Sub


MFG Thomas


  

Betrifft: AW: nur noch das select entfernen
von: Werner
Geschrieben am: 17.12.2018 07:44:21

Hallo Thomas,

.Range(.Cells(LastRow - 3, 1), .Cells(LastRow, 10)).Copy .Range("A65536").End(xlUp).Offset(1, 0)

oder wenn mit Paste dann geht nur PasteSpecial
.Range(.Cells(LastRow - 3, 1), .Cells(LastRow, 10)).Copy
.Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

hier werden nur die Werte übertragen
oder
Paste:=xlPasteAll

hier wird alles übertragen, auch die Formatierungen
oder
Paste:=xlPasteValuesandNumberformats

hier werden die Werte und das Zahlenformat übertragen.

Gruß Werner


  

Betrifft: besten dank an Werner
von: Thomas
Geschrieben am: 17.12.2018 07:54:00

Hallo Werner,

es passt perfekt.

besten Dank

mfg Thomas


  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T.
von: Werner
Geschrieben am: 17.12.2018 08:35:56