Und ich verstehe nicht, wieso man ein Makro braucht für eine Funktion, die Excel standardmäßig mittels Shortcut eingebaut hat. Genauer gesagt bietet es verschiedene Varianten als Standard, ohne auch nur irgendwie ein Makro zu brauchen. Welchen Vorteil versprichst du dir?
Weiters habe ich dir bereits einen Vorschlag für dein sinnbefreites Makro gemacht.
Aber egal, du kannst dir die Antwort sparen, ich steig aus.
Ach ja, es gibt übrigens weder Zeile B noch Zeile C.
@Berni
Ich finde den feindseligen Ton schade und unnötig.
Wie schon gesagt, habe ich nicht verstanden, was Du mit "Es gibt schon Standardfunktionen, die die von mir skizzierte Verhaltensweise erledigen" meinst.
CMD+Pfeil hoch bewegt hier auf der macOS-Version den Cursor zur nächsten nicht leeren Zelle.
STRG+Pfeil hoch ist eine Funktion des OS.
B, C. Mein Fehler. Ich meinte natürlich 2, 3.
@Berni
Ich hatte Dein Posting #6 übersehen und hatte mich auf #8 bezogen.
Dein Vorschlag "Zeile markieren - Strg+X - Zielzeile markieren (oder auch nur Zelle in Spalte A) - Strg++ (also Strg plus +-Taste)" besteht aus insgesamt 4 Schritten.
Wenn ich nach einem Makro suche, ist naturgemäß mein Motiv die Anzahl der Schritte bei einer Aufgabe zu reduzieren.
Auch wenn Du oder andere die Erledigung der Aufgabe mit einem Schritt nicht interessant finden, ist es IMHO nicht nötig dem Fragesteller mit Feindseligkeit für sein Anliegen zu begegnen.
Es liegt mir fern hier jemanden nerven zu wollen. Manchmal haben Antworten hier den Charakter "Ich teile Dein Anliegen nicht, daher muss Deine Frage sinnlos und nervig sein."
Mir liegt an einem höflichen und wertschätzenden Umgang und solche Untertöne empfinde ich als nicht schön.
Hallo Ibu,
wenn du die Antwort von Berni "feindselig" findest, hast du offenbar eine sehr niedrige Toleranzschwelle. Seine Meinung, nichts programmieren zu wollen, wofür es eine Standardfunktion gibt, teile ich in vollem Umfang. Da ich deiner Antwort entnehme, dass du mit einem Mac-Rechner arbeitest, mag das in einem anderen Licht erscheinen lassen, nur haben hier die wenigsten so einen Rechner, wodurch es erschwert wird, einen Helfer für dein Anliegen zu finden.
Hallo Klaus-Dieter.
Berni schreibt "Dein sinnbefreites Makro". Er spricht damit meinem Anliegen den Sinn ab.
Eine ganz andere Aussage wäre "Ich selber benötige keine Reduktion von 4 auf 1 Schritt, aber Dein Anliegen kann ich nachvollziehen."
Bitte erklärt mir was "sinnbefreit" ist an der Reduktion von 4 auf einen 1 Schritt.
In meinen Augen ist die Reduktion von Schritten eine der zentralen Merkmale von Makros.
Zu macOS: damit dürfte das Ganze wenig zu tun haben.
Umschalt+Leer funktioniert.
STRG++ jedoch nicht. Ich habe noch nicht herausgefunden, wie diese Funktion heißt und ob man sie in der Befehlsliste finden kann.
Hallo Ibu,
Zitat:Bitte erklärt mir was "sinnbefreit" ist an der Reduktion von 4 auf einen 1 Schritt.
ich glaube nicht, dass sich dein Vorhaben per Makro mit einem Schritt lösen lässt. Du musst dem Makro "sagen" was von wo nach wo verschoben werden soll. Das wirst du mit einem Schritt nicht lösen können. Insofern teile ich Bernis Auffassung vom (Un)Sinn eines solchen Makros, das obwohl ich hier einer von denen bin, die man als sehr Makroaffin bezeichnen kann.
Hallo Klaus-Dieter.
Zunächst einmal hat Berni mein Makro-Anliegen nicht als "sinnbefreit" diskreditiert, weil es seiner Ansicht nach unmöglich ist, es zu verwirklichen. Er hat vielmehr die Haltung eingenommen, dass es sinnbefreit ist, weil es ja bereits vorhandene Befehle gäbe, die das Anliegen mit 4 Schritten lösen.
Zu Deiner Vermutung, "Du musst dem Makro "sagen" was von wo nach wo verschoben werden soll.":
Zum "Was von wo" hat Berni ja bereits zutreffend erwähnt, was genügt:
Die Zeile, in der der Cursor steht muss markiert werden.
Das geht einfach per Umschalt+Leer.
Zum "nach wo":
Das ist in meiner Skizze ja völlig eindeutig beschrieben. Eine Zeile nach oben/unten.
Ich kenne mich zwar mit Makros nicht aus, kann es mir jedoch nicht vorstellen, dass man die 4 von Berni erwähnten Schritte nicht in ein Makro gießen könnte.
Ist jetzt klarer geworden, warum ich "sinnbefreit" als "feindselig" empfand?
Moin!
Ich enthalte mich mal meiner Meinung zum hiesigen überflüssigen Scharmützel:
Sub Eins_drueber()
If TypeName(Selection) = "Range" Then
With Selection
.EntireRow.Cut
.Offset(-1, 0).Insert xlDown
End With
End If
End Sub
Gruß Ralf
Hallo Ralf,
habe mal die anderen "links rechts oben unten" neugierig wie ich bin probiert und es funktionieren alle bis auf die Spalte nach rechts.
Da kommt die Meldung, dass zu Kopiere-Bereicht ist nicht gleich groß mit dem Zielbereich?
Code:
Sub Eins_drueber()
If TypeName(Selection) = "Range" Then
With Selection
.EntireRow.Cut
.Offset(-1, 0).Insert xlDown
End With
End If
End Sub
Sub Eins_drunter()
If TypeName(Selection) = "Range" Then
With Selection
.EntireRow.Cut
.Offset(2, 0).Insert xlUp
End With
End If
End Sub
Sub Eins_Links()
If TypeName(Selection) = "Range" Then
With Selection
.EntireColumn.Cut
.Offset(0, -1).Insert xlToLeft
End With
End If
End Sub
Sub Eins_Rechts()
If TypeName(Selection) = "Range" Then
With Selection
.EntireColumn.Cut
.Offset(0, 2).Insert xlToRight
End With
End If
End Sub
Hast du eine Idee, woran das liegt?
Danke
Alexandra
Hallöchen,
Du müsstest mal schauen, was da bei Dir rechts daneben los ist
Oder besser, was Du selectiert hast. Wenn es nach rechts nicht geht, sollte es bei gleicher Selection auch nach links nicht gehen.
Analysiere mal diese beiden codezeilen mit der Voraussetzung, Du hättet B2 selectiert.
.EntireColumn.Cut
.Offset(0, 2).Insert xlToRight
Siehst Du die Ursache?