Thema Datum  Von Nutzer Rating
Antwort
Rot Insert Shift:=xlDown
15.03.2021 08:28:27 Jonas
NotSolved
15.03.2021 08:47:48 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Jonas
Datum:
15.03.2021 08:28:27
Views:
113
Rating: Antwort:
  Ja
Thema:
Insert Shift:=xlDown

Hallo zusammen, 

ich habe ein Problem mit dem Kopieren und Einfügen von Zeilen aus einem Arbeitsblatt in ein anderes. Ich möchte in das Arbeitsblatt "BOM" eine Zeile aus dem Arbeitsblatt "Tabelle1" einfügen indem ich die Zeile dort kopiere und mit Insert Shift:=xlDown in "BOM" einfüge. Soweit funktioniert das auch gut. Ein Problem tritt immer dann auf, wenn ich die Zeile einfügen möchte und auf dem Arbeitsblatt "BOM" (also auf dem in dem die Zeile eingefügt werden soll) mehrere Zeilen ausgeblendet sind. Es scheint mir so, als könnte das Makro die ausgeblendeten Zeilen nicht "nach unten verschieben". Ich habe es schon so versucht, davor alle ausgeblendeten Zeilen einzublenden. Das funktioniert auch, allerdings möchte ich die Zeilen die davor ausgeblendet waren auch danach wieder ausblenden. Dafür fehlt mir aber leider da nötige know-how. Vielleicht weiss ja einer von euch wie man das Problem beheben kann. Freue mich über jede Hilfe.

 

Sub einezeile()

Dim q
    q = ActiveCell.Row
    
Dim strString As String, rngCell As Range
strString = "Final time per unit (te) assembly/ testing/ packaging"

If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData

Set rngCell = Columns(1).Find(strString, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)

If ActiveCell.Row < 7 Or rngCell.Row < q Then
        MsgBox "You cannot insert a new line here"
        
        Else
Application.ScreenUpdating = False

Call anfang

Sheets("Tabelle1").Visible = True

Sheets("Tabelle1").Rows("3").Copy
ActiveCell.EntireRow.Insert Shift:=xlDown

Call protect

Sheets("Tabelle1").Visible = False
  
Call ende

End If

End Sub

 

Vielen Dank schon mal für eure Hilfe.

Liebe Grüße

Jonas


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 Insert Shift:=xlDown
15.03.2021 08:28:27 Jonas
NotSolved
15.03.2021 08:47:48 ralf_b
NotSolved