Hallo zusammen!
Habe folgendes Problem:
Brauche eine spezielles Makro zum Zeilen kopieren. Habe das Problem in folgender Datei _
beschrieben, kann mir jemand mit dem Buttoncode helfen.
https://www.herber.de/bbs/user/68589.xls
Danke im Voraus!
gruß lisa
Momentan hat der Button folgenden Code:
Private Sub CommandButton1_Click()
With ActiveCell.EntireRow
.Copy
.Offset(1, 0).Insert
.Offset(1, 0).Range("A1:C1,F1:H1,EA1:IV1").ClearContents
.Cells(1, 1).Offset(1, 0).Select
End With
End Sub
Private Sub CommandButton1_Click()
Dim lngRow As Long
lngRow = 9
With Rows(lngRow)
.Copy
.Offset(1, 0).Insert
.Offset(1, 0).Range("B1:C1,F1:H1,EA1:IV1").ClearContents
End With
Do
lngRow = lngRow + 1
intCnt = Split(Cells(lngRow, 1).Text, ".")
Cells(lngRow, 1).Value = Split(Cells(lngRow, 1).Text, ".")(0) & "." & _
(Split(Cells(lngRow, 1).Text, ".")(1) + 1)
Loop While Split(Cells(lngRow + 1, 1), ".")(0) = 1
End Sub
Hey Rene!
Danke für deine hilfe! kann es leider erst später ausprobieren.
Die anderen in diesen Forum haben ja leider den Eindruck dass ich sie ausnutze!
Dachte halt das ist so üblich dass man in einem Forum einen anderen hilft!
auf jeden fall vielen Dank
Ja ich stimme dir zu, dass mir das eventuell nicht bewusst ist. Liegt aber daran dass ich von _
VBA Programmierung nicht viel Ahnung habe!
und achtung jetzt kommt von Neues von mir.
an rene falls er noch da ist:
Habe deinen code ausprobiert, funktioniert echt gut, das einzige was nicht ganz klappt:
bei markierung der zelle mit punkt 2 wäre eine message box cool mit der Auswahl mit entweder _
einem neuen Punkt 2 und alles andere wird 3 und so weiter, oder eben mit einem neuen 2.1 !
ist das Ganze behebbar ohne dass es Ausmaße übersteigt, die ramses und luc zu groß sind!?!?
viele Grüße