Thema Datum  Von Nutzer Rating
Antwort
Rot Verschieben von Zellen
 24.05.2013 10:41:53 Peter Urban
NotSolved

Ansicht des Beitrags:
Von:
Peter Urban		 Datum:
24.05.2013 10:41:53		 Views:
1305		 Rating:
     
Antwort:
  Ja
Thema:
Verschieben von Zellen
Moin Moin,
ich habe folgendes Problem:
In einer Tabele habe ich ca. 20.000 Zeilen importiert aus einem Leistungsverzeichniss. Leider sind beim Import nicht alle Teile die zu einer Position gehöhren in eione Zeile gekommen so das nun aufwendiges zusammenschieben erforderlich ist. (Den Import, bzw. an der darasu sich ergebenden Tabelle kann ich nicht änder, da sie von außerhalb kommt.) Dieses möchte ich nun mittels Programm realisieren.
Dazu habe ich folgenden Ablauf gebastelt:
Sub Verschieben()
'
' Verschieben Makro
'
' Tastenkombination: Strg+a
'
Range("A974").Select
Selection.Cut Destination:=Range("C973")
Range("B975:E975").Select
Selection.Cut Destination:=Range("D973:G973")
Rows("974:975").Select
Selection.Delete Shift:=xlUp
Range("A974").Select
End Sub

Nun habe ich folgenden fehler: das Makro ist auf eine bestimmte Zelle festgelegt, ich möchte das es immer von der Aktivenzelle ausgeht, und dann die Verschiebung entsprechend macht. nach Abschluss der Verschiebung sollte das Makro an den Anfang springen und fragen ob die Aktion erneut ausgeführt werden soll. Bei Ja ENTER bei nein ESC, wenn mir da jemand das Anpassen könte bin ich sehr dankbar.
 
M04.22.12.1138 Rundschweißung kompl.  
Rundschweißung kompl. 406,4*8 incl.Vorbereitung, Techn.LB DIN 9692, P265GH
  1 Stck 707 706,7    
M04.22.12.1139 Rundschweißung kompl.  
Rundschweißung kompl. 457*3,6 incl.Vorbereitung, Techn.LB DIN 9692, P265GH
  1 Stck 362 361,9    
M04.22.12.1140 Rundschweißung kompl.  
Rundschweißung kompl. 457*6,3 incl.Vorbereitung, Techn.LB DIN 9692, P265GH
  1 Stck 630 629,6    
 
 
 
kleiner Außzug aus der Tabelle.
 
Gruß Peter

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 Verschieben von Zellen
 24.05.2013 10:41:53 Peter Urban
NotSolved