Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen zwishnfügen
 15.06.2016 12:49:08 Jonny99
NotSolved
17.06.2016 10:51:07 Gast85866
NotSolved

Ansicht des Beitrags:
Von:
Jonny99		 Datum:
15.06.2016 12:49:08		 Views:
1392		 Rating:
     
Antwort:
  Ja
Thema:
Zellen zwishnfügen
Moin Moin Zusammen! Ich habe diesen Quelltext von einem anderen User erhalten. Der macht auch schon zu 95% das was er soll. Er kopiert Zeilen aus einer Tabelle in eine andere. Kann mir jemand von euch verraten, wie ich den Code so modifiziere, dass die neuen Zeilen nicht die alten überspielen, sondern nur zwischengefüge? Ich bin ein waschechter Anfänger, deswegen sagt mir bitte in Kindersprache was ich ändern muss :D Private Sub CommandButton4_Click() Dim zelleA Dim Cell As Range zelleA = Application.InputBox(Prompt:="Vor welcher Zeile soll ein neues Thema angelegt werden?", Title:="Zellenauswahl", Type:=1) If zelleA = "" Then Exit Sub 'Verhindert Fehler, falls kein Wert eingegeben wurde Application.CutCopyMode = False for i=0 to 4 Sheets("Übersicht").cells(zelleA+i,1).entirerow.insert i=i+1 next Sheets("nicht verändern").Rows("5:10").Copy Destination:=Sheets("Übersicht").Rows(zelleA) 'Elegantere und sicherere Schreibweise zum kopieren For Each Cell In Sheets("nicht verändern").Rows("5:10") 'er geht durch jede zu kopierende Zelle durch in der Reihe Call CopyPasteFormatCondition(Cell, Sheets("Übersicht").Cells(Cell.Row, Cell.Column)) 'Er überträgt die bedingte Formatierung Zelle für Zelle ins neue WS Next End Sub Sub CopyPasteFormatCondition(ByVal RngCopy As Range, ByVal RngPaste As Range) Dim formCond As FormatConditions Dim i As Integer, j As Integer Set formCond = RngCopy.FormatConditions RngPaste.FormatConditions.Delete For i = 1 To formCond.Count With RngPaste.FormatConditions If formCond(i).Type = 1 Then If formCond(i).Operator < 3 Then .Add formCond(i).Type, formCond(i).Operator, formCond(i).Formula1, formCond(i).Formula2 Else .Add formCond(i).Type, formCond(i).Operator, formCond(i).Formula1 End If Else .Add formCond(i).Type, , formCond(i).Formula1 End If With .Item(i) For j = 1 To formCond(i).Borders.Count With .Borders(j) .Color = formCond(i).Borders(j).Color .LineStyle = formCond(i).Borders(j).LineStyle End With Next j With .Font .Bold = formCond(i).Font.Bold .Color = formCond(i).Font.Color .FontStyle = formCond(i).Font.FontStyle .Italic = formCond(i).Font.Italic .Strikethrough = formCond(i).Font.Strikethrough .Underline = formCond(i).Font.Underline End With With .Interior .Color = formCond(i).Interior.Color .PatternColor = formCond(i).Interior.PatternColor .Pattern = formCond(i).Interior.Pattern End With End With End With Next i End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen zwishnfügen
 15.06.2016 12:49:08 Jonny99
NotSolved
17.06.2016 10:51:07 Gast85866
NotSolved