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

Zeilennummer um 1 erhöhen

Forumthread: Zeilennummer um 1 erhöhen

Zeilennummer um 1 erhöhen
Selma
Hallo
Ich habe folgenden Code, um die Adresse der aktiven Zelle an die Variable "Fundstelle" zu übergeben:
Cells.Find(What:=Begriff, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Fundstelle = ActiveCell.Address
Frage:
Wie pass ich nun meinen Code so an, dass die Variable mittels eines 20-fach-Loops immer um 1 Zeile erhöht wird ?
Ziel:
Ab der aktuellen Zeile sollen in Einzelschritten total 20 mal um eine Zeile erhöht werden.
Danke schon mal für eure Tips
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilennummer um 1 erhöhen
22.07.2011 14:10:06
Hajo_ZI
Hallo Selma
set RaFound =Cells.Find(What:=Begriff, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
For LoI= Rafound.row+1 To rafound.row+20
Next Loi
Set Rafound =Nothing
Activate und select ist in VBA nicht notwendig.

Anzeige
AW: Zeilennummer um 1 erhöhen
22.07.2011 14:58:46
Selma
Danke
das funzt ja bestens
weisst du zufälligerweise noch, wie ich nun die Nummerierung einer Textbox per Loop erhöhe
also z.B.
Textbox1.Text = .....
dann
Textbox2.Text = .....
dann
Textbox3.Text = ....
AW: Zeilennummer um 1 erhöhen
22.07.2011 15:00:51
Hajo_Zi
Hallo Selma
For Loi=1 To 12
Controls("TextBox"&Loi) =123
Next Loi
ungetestet
Anzeige
AW: Zeilennummer um 1 erhöhen
22.07.2011 17:32:47
Selma
Super !
vielen Dank
AW: Zeilennummer um 1 erhöhen
22.07.2011 14:13:44
Rudi
Hallo,
ein wenig schleierhaft.
For i=1 to 20
fundstelle=Range(fundstelle).offset(1).address
Next
Die Frage ist: Was willst du wirklich?
Geht wahrscheinlich besser und einfacher als von dir gedacht.
Die Adresse brauche ich eigentlich selten. Meistens arbeite ich direkt mit dem Range-Objekt oder Cells(Zeile, Spalte).
Gruß
Rudi
Anzeige
Begriff 20x suchen
22.07.2011 14:14:10
NoNet
Hallo Selma,
ganz einfach und unprofessionell könntest Du das so lösen :
Sub Suchen()
Dim fundstelle, begriff, lngZ As Long
begriff = "Selma" 'Suchbegriff bitte anpassen !
fundstelle = ActiveCell.Address
For t = 1 To 20
Cells.Find(What:=begriff, After:=Range(fundstelle), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
fundstelle = ActiveCell.Address
MsgBox fundstelle, , t 'Anzeige der Adresse
Next
End Sub
Gruß, NoNet
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Zeilennummer um 1 erhöhen in Excel mit VBA

Schritt-für-Schritt-Anleitung

Um die Zeilennummer in Excel um 1 zu erhöhen, kannst Du den folgenden VBA-Code verwenden. Dieser Code erlaubt es Dir, die Adresse der aktiven Zelle zu finden und dann in einer Schleife die Zeile um 1 zu erhöhen.

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

  2. Füge ein neues Modul hinzu (Rechtsklick auf „VBAProject“ > Einfügen > Modul).

  3. Kopiere und füge den folgenden Code ein:

    Sub ErhöheZeile()
   Dim Fundstelle As String
   Dim Begriff As String
   Begriff = "DeinSuchbegriff" ' Hier Deinen Suchbegriff eintragen
   Fundstelle = ActiveCell.Address

   For i = 1 To 20
       Fundstelle = Range(Fundstelle).Offset(1, 0).Address
       MsgBox "Aktuelle Adresse: " & Fundstelle, , i
   Next i
End Sub

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

  5. Führe das Makro aus (ALT + F8, wähle „ErhöheZeile“ und klicke auf „Ausführen“).

Dieser Code erhöht die Zeilennummer um 1 und zeigt die neue Adresse in einer Messagebox an.

Häufige Fehler und Lösungen

  • Fehler: „Objektvariable nicht gesetzt“

    • Lösung: Stelle sicher, dass Du einen gültigen Suchbegriff in der Variable Begriff definiert hast.

  • Fehler: „Typen unverträglich“

    • Lösung: Achte darauf, dass alle Variablen korrekt deklariert sind. Zum Beispiel sollte Dim fundstelle As String lauten.

Alternative Methoden

Statt VBA kannst Du auch Excel-Funktionen verwenden, um Werte in Zellen zu erhöhen. Hier ist eine einfache Methode:

  1. Schreibe in die Zelle A1 die Zahl 1.
  2. In die Zelle A2 schreibe die Formel =A1 + 1.
  3. Ziehe das Ausfüllkästchen von A2 nach unten für 20 Zeilen.

Diese Methode ist einfach, wenn Du keine Programmierung verwenden möchtest.

Praktische Beispiele

Hier sind einige Beispiele für das Erhöhen von Zeilen in Excel:

  • VBA Beispiel für Textboxen erhöhen:

    For Loi = 1 To 12
   Controls("TextBox" & Loi).Text = "Text für Box " & Loi
Next Loi

  • Mit Offset arbeiten:

    For i = 1 To 20
   Cells(i + 1, 1).Value = "Zeile " & i
Next i

Tipps für Profis

  • Verwende With-Anweisungen, um den Code effizienter und lesbarer zu gestalten.
  • Teste Deinen Code in einer sicheren Umgebung, um Datenverlust zu vermeiden.
  • Nutze Option Explicit zu Beginn Deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind.

FAQ: Häufige Fragen

1. Wie kann ich die blaue Zeilennummer in Excel aktivieren?
Die blauen Zeilennummern werden in Excel angezeigt, wenn Du die Zeilen in eine Tabelle umwandelst. Du kannst dies tun, indem Du den gesamten Datenbereich auswählst und dann auf „Als Tabelle formatieren“ klickst.

2. Ist es möglich, die Zeilen um mehr als 1 zu erhöhen?
Ja, Du kannst den Offset-Wert im VBA-Code anpassen. Zum Beispiel Offset(2, 0) würde die Zeile um 2 erhöhen.

Beliebteste Forumthreads (12 Monate)

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