title image


Smiley Re: variabler Einsatz von Row möglich?
hiho



Workbooks(NameDieserDatei).Worksheets(Uebersicht).Activate





Set gefundeneZelleStart = Cells.Find(What:="Beschreibung des Umfanges bei Neuwerkzeugen", _

After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _

SearchDirection:=xlNext, MatchCase:=False)

Set gefundeneZelleEnde = Cells.Find(What:="Änderungen", _

After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _

SearchDirection:=xlNext, MatchCase:=False)



If Not gefundeneZelleStart Is Nothing Then 'Zellenformat kopieren

gefundeneZelleStart = gefundeneZelleStart.Row + 1

gefundeneZelleEnde = gefundeneZelleEnde.Row - 1

Rows(gefundeneZelleStart & ":" & gefundeneZelleEnde).Copy

End If



Workbooks(Name).Worksheets("Tabelle2").Activate 'Zellen einfügen

Rows(gefundeneZelleStart - 20 & ":" & gefundeneZelleEnde - 21).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Application.CutCopyMode = False




Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: