Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1320to1324
1320to1324
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert in Zelle links daneben schreiben (2.)

Forumthread: Wert in Zelle links daneben schreiben (2.)

Wert in Zelle links daneben schreiben (2.)
27.06.2013 15:26:22
Georg
Hallo Rudi und die ganze große Excel Welt,
Rudi, Du hattest mir so eine tolle Lösung geschickt, Werte in die Zelle links daneben zu _ schreiben. Jetzt hänge ich doch nochmal dran: mit dem Code werden die Inhalte übertragen, also im Zweifel halt auch eine Formal etc und nicht nur der reine Wert selber. 

Sub Werte_nach_links_kopieren()
Selection.Copy Selection.Offset(, -1)
End Sub

Ich brauche aber den Übertrag des reinen Wertes...! Das geht doch sicher auch, nicht wahr?
Danke und Gruß Georg

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert in Zelle links daneben schreiben (2.)
27.06.2013 15:27:50
Klaus
Hallo Georg,
ich poste dir dazu mal einen angemessen komplexen Code, damit du dich nicht wieder schlecht fühlst!
Sub LangsamNachLinks()
Dim BereichAlt As Range
Set BereichAlt = Selection
Dim BereichNeu As Range
Dim ColAlt As Long
Dim ColNew As Long
Dim RowsAlt As Long
Dim i As Long
If BereichAlt.Columns.Count > 1 Then
MsgBox ("Code wird nicht ausgeführt, da mehr als eine Spalte aktiv sind!")
Else
ColAlt = BereichAlt.Cells(1, 1).Column
ColNew = BereichAlt.Cells(1, 1).Column - 1
RowsAlt = BereichAlt.Rows.Count
For i = 1 To RowsAlt
Set BereichNeu = Cells(BereichAlt.Cells(i, 1).Row, ColNew)
BereichNeu.Value = Cells(BereichAlt.Cells(i, 1).Row, ColAlt).Value
Next i
End If
End Sub
Grüße,
Klaus M.vdT.

Anzeige
Georg, lies diesen Beitrag nicht!
27.06.2013 15:30:29
Klaus
Hallo alle ausser Georg,
es reicht natürlich: 

Sub Werte_nach_links_kopieren()
Selection.Offset(, -1).Value = Selection.Value
End Sub

Aber Georg hatte weiter unten explizit um kompliziertere Lösungen gebeten :-)
Grüße,
Klaus M.vdT.

Anzeige
Küsschen-küsschen :-)
27.06.2013 15:33:11
Georg
hab`s doch gelesen - DANKE!!

Danke für die Rückmeldung! owT.
27.06.2013 15:34:59
Klaus
Hallo Georg,
ich wollte nur nett sein :-) Und ich möchte darauf hinweisen, dass auch mein erster Code 100% getestet und lauffähig ist!
Grüße,
Klaus M.vdT.

AW: Danke für die Rückmeldung! owT.
27.06.2013 15:39:43
Georg
Hallo Klaus,
da würde ich doch nie dran zweifeln...
Es übersteigt nur meine VBA Einsicht bei weitem. Insofern ziehe ich mich doch lieber auf den zweiten zurück.
Nochmal Danke!
Georg

Anzeige
Heee - - !
27.06.2013 15:30:43
Georg
Hallo Klaus,
so schlecht hab ich mich eigentlich garnicht gefühlt, es geht schon wieder...! ;-)
Geht es vielleicht auch ein bischen kürzer? Das ist doch sicher nur ein zusätzliche Zeile, oder so was - nicht wahr?
Gruß Georg

AW: Wert in Zelle links daneben schreiben (2.)
27.06.2013 16:22:30
Frank
Hallo,
wie folgt:
Sub Werte_nach_links_kopieren()
Selection.Copy
Selection.Offset(0, -1).PasteSpecial Paste:=xlPasteValues
End Sub

Mit freundlichem Gruß aus der Rattenfängerstadt Hameln
Frank Arendt-Theilen
---
at-exceltraining.de

Anzeige
:-) auch Dir Danke! o.w.T.
27.06.2013 16:27:17
Georg
.
Anzeige
Anzeige

Infobox / Tutorial

Werte in Excel Zelle links daneben schreiben

Schritt-für-Schritt-Anleitung

Um in Excel den Wert in die Zelle links daneben zu schreiben, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke auf Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub Werte_nach_links_kopieren()
   Selection.Offset(, -1).Value = Selection.Value
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Wähle die Zelle aus, deren Wert du in die Zelle links daneben kopieren möchtest.

  6. Führe das Makro aus:

    • Drücke ALT + F8, wähle Werte_nach_links_kopieren und klicke auf Ausführen.

Nun wird der Wert der ausgewählten Zelle in die Zelle links daneben kopiert.

Häufige Fehler und Lösungen

  • Fehler: "Code wird nicht ausgeführt, da mehr als eine Spalte aktiv sind!"

    • Lösung: Stelle sicher, dass nur eine Zelle oder eine einzelne Spalte ausgewählt ist.

  • Fehler: Der Inhalt der Zelle wird nicht korrekt übertragen.

    • Lösung: Überprüfe, ob der Code richtig kopiert wurde und keine zusätzlichen Leerzeichen enthält.

Alternative Methoden

Wenn du eine kürzere Methode bevorzugst, kannst du auch die PasteSpecial-Methode verwenden. Hier ist ein Beispiel:

Sub Werte_nach_links_kopieren()
    Selection.Copy
    Selection.Offset(0, -1).PasteSpecial Paste:=xlPasteValues
End Sub

Diese Methode kopiert den Wert und nicht die Formatierung oder Formeln.

Praktische Beispiele

Angenommen, du hast in Zelle B1 den Wert "100" und führst das Makro aus, während Zelle B1 ausgewählt ist. Nach der Ausführung wird in Zelle A1 der Wert "100" erscheinen.

Wenn du mehrere Zellen auswählst, wird das Makro den Wert jeder Zelle in die Zelle links daneben übertragen, solange nur eine Spalte ausgewählt ist.

Tipps für Profis

  • Verwende Tastenkombinationen, um den Prozess schneller zu gestalten. Du kannst das Makro auch einer Schaltfläche zuweisen, um es einfacher auszuführen.
  • Teste deine Makros in einer Kopie der Arbeitsmappe, um Datenverlust zu vermeiden.
  • Experimentiere mit anderen VBA-Befehlen, um deine Excel-Fähigkeiten weiter zu verbessern.

FAQ: Häufige Fragen

1. Kann ich das Makro auf mehrere Zellen gleichzeitig anwenden?
Ja, wenn du mehrere Zellen in einer Spalte auswählst, wird der Wert jeder Zelle in die Zelle links daneben kopiert.

2. Funktioniert dies in allen Excel-Versionen?
Ja, die oben genannten VBA-Codes funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige