Excel for iPad - moving of cells, rows or columns does no longer work

Hallo Steffi,

markiere zuerst die Zeilen, die eingefügt werden sollen und lasse dann das Makro laufen:

Sub test17()

Dim rngC As Range

Dim LCol As Long
Application.ScreenUpdating = False

With ActiveSheet

   LCol = .Cells(5, Columns.Count).End(xlToLeft).Column

   .Rows(4).Hidden = False

   .Rows(4).Copy

   Selection.Insert Shift:=xlDown

   For Each rngC In Intersect(Selection, _

      .Columns("A:" & Chr(LCol + 64)))

      If Not rngC.HasFormula Then

         rngC.ClearContents

      End If

   Next

   .Rows(4).Hidden = True

End With

Application.ScreenUpdating = True

'    ActiveWorkbook.Save

End Sub
Oder du lässt Zeile 4 ausgeblendet und blendest die ausgeblendet eingefügten Zeilen ein:Sub test()

Dim rngC As Range

Dim LCol As Long

Dim LRow As Long
Application.ScreenUpdating = False

With ActiveSheet

   LCol = .Cells(5, Columns.Count).End(xlToLeft).Column

   LRow = .Cells(Rows.Count, 1).End(xlUp).Row

   .Rows(4).Copy

   Selection.Insert Shift:=xlDown

   .Rows("5:" & LRow).Hidden = False

   For Each rngC In Intersect(Selection, _

      .Columns("A:" & Chr(LCol + 64)))

      If Not rngC.HasFormula Then

         rngC.ClearContents

      End If

   Next

End With

Application.ScreenUpdating = True

'    ActiveWorkbook.Save

End Sub

Mit freundlichen Grüßen

Claus

Hi Claus

Danke,

funktioniert zu 99,9% echt super,

wenn ich aber neue Zeilen einfügen will, "flackert jetzt die Tabelle"

• das einfügen jeder einzelnen Zeile wird durchlaufen und abgebildet

dafür hatte ich bis jetzt immer folgendes Makro:

Sub Zeilen_einfügen()

Application.ScreenUpdating = False

Dim rngC As Range

Dim LCol As Long

With ActiveSheet

LCol = .Cells(5, Columns.Count).End(xlToLeft).Column

.Rows(4).Hidden = False

.Rows(4).Copy

Selection.Insert Shift:=xlDown

For Each rngC In Intersect(Selection, _

.Columns("A:" & Chr(LCol + 64)))

If Not rngC.HasFormula Then

rngC.ClearContents

End If

Next

.Rows(4).Hidden = True

End With

Application.ScreenUpdating = True

End Sub

gibt es da noch eine Möglichkeit dieses zu ändern

Danke

BG

Hi Felix,

I am Dave, I will help you with this.

Enter a ' character in the cell and then the very long number does that stop Excel formatting the number like that?

For example, if you are entering 123456789 in a cell, enter '123456789

Hi, thanks for your reply.
The Version is MS office 365, Excel 2208.
I know how to insert graphics in XLS, but if one photo is in a cell, there is no way to simply get that image into another cell just by typing "=A2".
Years ago that was easy to do, like that.
Now, e.g. doing a list of products with photos, it takes hours to use the "work around" getting images to the define cell from another table.
My question: why had that been changed and for what reason?
I thought a cell content is a cell content, either text or images, I see no difference handling the "content".
Honestly I miss that "old" functionality since years, and looking in YouTube you see lots of videos helping to get that simple job done - in 10-15 minutes.... Got it ?
BR
Axel

Hallo Muharrem,



probiere es mal so:



Sub Duplikate()

Dim LRow As Long

Dim i As Long

LRow = Cells(Rows.Count, "A").End(xlUp).Row

For i = LRow To 2 Step -1

If WorksheetFunction.CountIf(Range(Cells(2, 1), _

Cells(i, 1)), Cells(i, 1)) > 1 Then

Rows(i).Delete

End If

Next

End Sub



Mit freundlichen Grüßen

Claus