NAch kopieren wert um 1 erhöhen

Forumthread: NAch kopieren wert um 1 erhöhen

05.09.2007 16:24:00

maruseru

Hallo zusammen
Wahscheinlich denke ich wieder über das Ziel hinaus.
Die Spalte A beinhaltet eine eine aufsteigende Zahlenreihe. Aus einer anderen Tabelle werden Zeilen jeweils auf die erste leere Zeile kopiert von Spalte B:K. Wie kann ich nun in der Spalte A jeweils automatisch den Wert um 1 erhöhen?
Danke und Gruss
Maruseru

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: NAch kopieren wert um 1 erhöhen

05.09.2007 19:14:00

Gerd

AW: NAch kopieren wert um 1 erhöhen

05.09.2007 19:14:00

Gerd

Hallo Maruseru,
ungetestet:
With Thisworkbook.Worksheets("Tabelle1")
.Cells(rows.count,1).End(xlup).offset(1,0).value =Cells(rows.count,1).End(xlup).value + 1
End With
Gruß Gerd

Infobox / Tutorial

Werte in Excel beim Kopieren automatisch um 1 erhöhen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Deine Excel-Tabelle: Stelle sicher, dass Du die richtige Tabelle geöffnet hast, in der Du die Werte anpassen möchtest.
Zahlenreihe erstellen: In Spalte A erstelle eine aufsteigende Zahlenreihe. Du kannst dies einfach tun, indem Du die erste Zahl eingibst und dann die Zelle nach unten ziehst, um die Werte automatisch zu erhöhen.
Kopieren der Daten: Kopiere die Daten aus der anderen Tabelle in die erste leere Zeile der Spalten B bis K in Deiner aktuellen Tabelle.
Wert um 1 erhöhen: Füge den folgenden VBA-Code in das Modul ein, um den Wert in Spalte A automatisch um 1 zu erhöhen, nachdem Du die Daten kopiert hast:
```
With ThisWorkbook.Worksheets("Tabelle1")
    .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = .Cells(Rows.Count, 1).End(xlUp).Value + 1
End With
```
Makro ausführen: Speichere das Makro und führe es aus, um sicherzustellen, dass die erste Zahl in der Reihe immer um 1 erhöht wird.

Häufige Fehler und Lösungen

Fehler: Der Wert wird nicht erhöht: Überprüfe, ob Du das Makro korrekt ausgeführt hast und ob die richtige Tabelle ausgewählt ist.
Fehler: Falsche Zelle wird aktualisiert: Stelle sicher, dass Du Dich in der richtigen Spalte und Zeile befindest, bevor Du das Makro ausführst.
Fehler: Daten werden überschrieben: Achte darauf, dass Du immer in die erste leere Zeile der Spalte A schreibst.

Alternative Methoden

Excel beim Runterziehen: Du kannst auch die Funktion „Füllung“ nutzen, um die Werte in Spalte A beim Runterziehen automatisch zu erhöhen. Wähle die Zelle mit der ersten Zahl aus, klicke auf das kleine Quadrat in der unteren rechten Ecke der Zelle und ziehe nach unten.
Formel verwenden: Wenn Du eine Formel verwenden möchtest, kannst Du in Zelle A2 =A1 + 1 eingeben und diese Formel nach unten ziehen.

Praktische Beispiele

Beispiel 1: Wenn Du in Zelle A1 die Zahl 1 hast und die Daten aus einer anderen Tabelle in B2 bis K10 kopierst, wird A2 automatisch auf 2 erhöht, A3 auf 3 und so weiter, wenn Du das Makro ausführst.
Beispiel 2: Wenn Du eine Excel-Tabelle 1 zu 1 kopieren möchtest und den Wert um 1 erhöhen möchtest, kannst Du die oben genannten Schritte befolgen, um sicherzustellen, dass die Werte korrekt angepasst werden.

Tipps für Profis

Verwende die Funktion „SVERWEIS“, um Werte in einer großen Tabelle automatisch zu aktualisieren.
Überlege, ob Du die Excel-Zeilenhöhe erhöhen möchtest, um die Sichtbarkeit der Einträge zu verbessern.
Experimentiere mit der Funktion „WENN“, um Bedingungen für das Erhöhen der Werte zu setzen, z.B. nur erhöhen, wenn der vorherige Wert größer als 0 ist.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Spalten gleichzeitig erhöhen?
Das geht am einfachsten über ein Makro, das Du entsprechend anpassen kannst, oder indem Du Formeln in den entsprechenden Zellen verwendest.

2. Was passiert, wenn ich die Zellen manuell bearbeite?
Wenn Du die Zellen manuell bearbeitest, wird das Makro nicht mehr korrekt funktionieren, es sei denn, Du passt die Werte wieder an. Achte darauf, die Automatisierung durch das Makro nicht zu unterbrechen.

Beliebteste Forumthreads (12 Monate)