Thema Datum  Von Nutzer Rating
Antwort
Rot Ausgewählte Datenblöcke unterschiedlich groß
 29.09.2015 19:14:59 Juergen
NotSolved
29.09.2015 21:21:13 BigBen
NotSolved
29.09.2015 22:11:56 Juergen
NotSolved
30.09.2015 11:29:43 BigBen
NotSolved
30.09.2015 13:48:57 Gast96415
NotSolved

Ansicht des Beitrags:
Von:
Juergen		 Datum:
29.09.2015 19:14:59		 Views:
2062		 Rating:
     
Antwort:
  Ja
Thema:
Ausgewählte Datenblöcke unterschiedlich groß

Hallo,

 

mein Makro funktioniert für die Datei in der ich es erstellt habe, aber nicht für andere. Das Problem ist dass die Zeilen Länge variiert, da es sich um Messwerte handelt. Ich habe dies eigentlich umgehen wollten indem ich per  Selection.End(xlDown).Select und Selection.End(xlDown).Select den gsamten Bereich unabhängig seiner Länge auswähle. Leider speichert exel im Aufnahmemodus aber genau die Zeile und Spalten ab, die hierdurch erzeugt wurden.

Ich denke dass "Selection.Cut Destination:=Range("A1:J142815")" durch ersetzt werden muss. Es soll quasi genau dass ausgewählt und ausgeschnitten werden, wass zuvor durch shift+strg+down  und shift+strg+right ausgewählt wurde.

 

Zum gesamt Problem: Ich habe eine exel Datei, in der einige Positionen immer die selben sind, andere aber in Abhängigkeit der Messwerte leider nicht. Das Dokument soll geordnet werden. Hierdruch behelfe ich mich der art dass ich nach und nach die Datenblöcke ordne und immer von Referenzpunkten wie A0 zum ersten beschriebenen Eintrag springe und dann von dort den Block per SHIFT+STRG+Peil aufwähle und verschiebe.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
'
' Clean_mVP_Files Makro
'
 
'
    Range("A10").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-264
    Selection.Cut Destination:=Range("AN1:BO328")
    Range("AN1:BO328").Select
    Range("A1:B7").Select
    Selection.Cut Destination:=Range("BQ1:BR7")
    Range("BQ1:BR7").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("BQ4").Select
    Range("BQ4").Cut Destination:=Range("BQ1")
    Range("BR4").Select
    Range("BR4").Cut Destination:=Range("BQ2")
    Range("BQ6").Select
    Range("BQ6").Cut Destination:=Range("BR1")
    Range("BR6").Select
    Range("BR6").Cut Destination:=Range("BR2")
    Range("BQ7").Select
    Selection.Cut Destination:=Range("BS1")
    Range("BR7").Select
    Selection.Cut Destination:=Range("BS2")
    Range("BQ3").Select
    Selection.Cut Destination:=Range("BT1")
    Range("BR3").Select
    Selection.Cut Destination:=Range("BT2")
    Range("BQ5:BR5").Select
    Selection.ClearContents
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
    Columns("C:AC").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Selection.Cut Destination:=Range("A1:J142815")
    Range("K:K,L:L").Select
    Range("L1").Activate
    Selection.ClearContents
    Selection.Delete Shift:=xlToLeft
End Sub

Vielen Dank für Eure Hilfe!!!

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Ausgewählte Datenblöcke unterschiedlich groß
 29.09.2015 19:14:59 Juergen
NotSolved
29.09.2015 21:21:13 BigBen
NotSolved
29.09.2015 22:11:56 Juergen
NotSolved
30.09.2015 11:29:43 BigBen
NotSolved
30.09.2015 13:48:57 Gast96415
NotSolved