Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Zellen ansprechen VBA

Forumthread: mehrere Zellen ansprechen VBA

mehrere Zellen ansprechen VBA
26.02.2020 09:39:45
Nico264
Hallo liebes Forum,
ich habe einen Code bei dem ich eine neue Zeile unter der aktuellen zeile einfügen lasse. Dadurch sind aber die Formeln die ich in Excel eingegeben habe natürlich nicht in der eingefügten Zeile vorhanden.
Ich habe im Forum einen Beispielcode entdeckt und diesen für meine Bedürfnisse angepasst. Jedoch bin ich ein Amateur und ich lasse jetzt jede Zelle einzeln durchlaufen und die Formel nach unten kopieren. Weiß jemand wie ich das vereinfachen kann, damit es nicht so lange braucht diese funktion umzusetzten?
Hier mein Code:
Sub T_LOP_Unterpunkt_click(Optional uhu As Boolean)
'-- keine Sprache
Dim z_nummer, z_titel As Range, r_zeile, ii, i As Integer, zellwert As String
r_zeile = ActiveCell.Row
' Pr?fen zeile ob unter Filterzeile
If r_zeile (kleiner) T_versteck.Range("K29").Value Then
ActiveCell.Offset(1, 0).EntireRow.Insert
'-----------Formeln "runterziehen" f?r die neu eingef?gte zeile----------
Dim lngLetzte As Long 'letzte Zeile
With ActiveSheet
'letzte Zeile auffinden:
lngLetzte = .UsedRange.Rows.Count + .UsedRange.Row - 1
.Range(.Cells(r_zeile, 9), Cells(r_zeile + 1, 9)).Formula = .Cells(r_zeile, 9).Formula 'Formel aus i10 runterkopieren:
.Range(.Cells(r_zeile, 10), Cells(r_zeile + 1, 10)).Formula = .Cells(r_zeile, 10).Formula
.Range(.Cells(r_zeile, 11), Cells(r_zeile + 1, 11)).Formula = .Cells(r_zeile, 11).Formula
.Range(.Cells(r_zeile, 14), Cells(r_zeile + 1, 14)).Formula = .Cells(r_zeile, 14).Formula
.Range(.Cells(r_zeile, 15), Cells(r_zeile + 1, 15)).Formula = .Cells(r_zeile, 15).Formula
.Range(.Cells(r_zeile, 16), Cells(r_zeile + 1, 16)).Formula = .Cells(r_zeile, 16).Formula
.Range(.Cells(r_zeile, 17), Cells(r_zeile + 1, 17)).Formula = .Cells(r_zeile, 17).Formula
.Range(.Cells(r_zeile, 18), Cells(r_zeile + 1, 18)).Formula = .Cells(r_zeile, 18).Formula
.Range(.Cells(r_zeile, 19), Cells(r_zeile + 1, 19)).Formula = .Cells(r_zeile, 19).Formula
End With
Ich Danke euch schon mal im Voraus und Gruß
Nico
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Zellen ansprechen VBA
26.02.2020 09:57:56
Nepumuk
Hallo Nico,
ein einfaches Copy mit anschließendem PasteSpecial sollte es tun.
Beispiel:
Public Sub Test()
Call ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1, 0).EntireRow.PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
End Sub

Gruß
Nepumuk
Anzeige
AW: mehrere Zellen ansprechen VBA
26.02.2020 10:04:06
Nico264
Hallo Nepumuk,
Danke für deine schnelle Antwort. Ich habe vergessen zu erklären dass ich nur bestimmte Zellen ansprechen bzw kopieren will und nicht die ganze Zeile. Dein Code kopiiert die ganze Zeile oder?
Mein Fehler.
Gruß Nico
AW: mehrere Zellen ansprechen VBA
26.02.2020 10:11:04
Nepumuk
Hallo Nico,
du fügst doch eine ganze Zeile ein.
Gruß
Nepumuk
Anzeige
AW: mehrere Zellen ansprechen VBA
26.02.2020 10:47:19
Nico264
Hi Nepumuk,
du hast recht, aber ganz allgemein gefragt:
gibt es eine einfacherer Möglichkeit nur den Inhalt der sechs Zellen zu kopieren und nicht die ganze Zeile? Der Rest soll kann erstmal außen vor bleiben.
Ich Danke dir
Gruß
AW: mehrere Zellen ansprechen VBA
26.02.2020 12:13:07
Klaus
Hallo Nico,
Dim i As Long
For i = 9 To 19
.Range(.Cells(r_zeile, i), Cells(r_zeile + 1, i)).Formula = .Cells(r_zeile, i).Formula
Next i
LG,
Klaus M.
Anzeige
;

Forumthreads zu verwandten Themen

VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
mehrerer Zellen ansprechen | Herbers Excel-Forum
Kurt P
Hallo,
warum geht das so nicht ?
Range("AP23; AP17").ClearContents
mfg Kurt P
05.01.2010 11:49:19
Thread-ID: 1127252
3 Beiträge
VBA: mehrere Bilder ansprechen
Florian

Hallo Genossen!
Ich hätte wieder mal ein Frage, bei der ihr mir sicher helfen könnt: wie kann ich im VBA-Code mehrere Shapes gleichzeitig ansprechen, so dass der Code vereinfacht wird?
Danke Euch schon mal!
Florian
.Shapes(1).Left = .Cells(kAufbau + 2, 2).Left
.Shapes(1).Wid...
11.03.2010 20:28:00
Thread-ID: 1145227
3 Beiträge
Anzeige
Formular aufrufen VBA über mehrere Zellen
andreas

Hallo zusammen,
habe eine Tabelle da will ich wenn eine Zelle von B20 - B500 selektiert ist das Formular "Werkzeuge" aufrufen.
Wie muss ich dafür den Code schreiben?
Danach sollte nach einlesen der Daten über das Formular, die Zelle "C?" in der selben Zeile angewählt werden, dazu m...
12.11.2010 12:17:18
Thread-ID: 1186487
3 Beiträge
Per VBA bestimmte Zellen mit Formel Füllen
Benjamin

Hallo
ich habe das Probelm, dass ich bestimmte Zellen in mehreren Dokumenten habe, in denen die Formel geändert werden muss.
nun wollte ich wissen, ob dies Mittels VBA geht wenn die reihen folge wie folg t ist
A9 sowie W9
A130 W130
....
07.12.2011 17:37:37
Thread-ID: 1240992
3 Beiträge
VBA - mehrere Spalten ansprechen
WalterK

Hallo,
bei folgendem Codeteil sollte ich wissen, was ich bei der Zeile Range("D" & i).Clear ändern muss, wenn ich die Clear-Anweisung für D:G benötige.
For i = 16 To LeZeiMinAB
If Range("A" & i) = "" Or Range("B" & i) = "" Then
Range("D" & i).Clear
End If...
15.04.2012 21:57:25
Thread-ID: 1259508
5 Beiträge
Nur bestimmte Zellen ansprechen
Gico7

Hallo Leute
Habe ein kleines Problem...
In meiner Exceldatei kann man ab Zelle D10 einen beliebigen Wert einschreiben.
Wenn dieser Wert "driver" lautet, soll sich der Textinhalt der Zelle automatisch auf "Ihre Barzahlung" ändern. Sollte der Wert "99" lauten, soll autoamtisch der Inh...
19.05.2014 09:49:57
Thread-ID: 1362187
9 Beiträge
Excel_VBA_ mehrere Zellen Addieren
B.Varli

Hi Leute,
Das ist mein Erster Beitrag.
Folgendes Problem hab ich das mir den kopf zerbricht.
Ich möchte gerne mehrere zellen addieren.
Am besten mit VBa in Excel
Ich hab ein kleines beispiel erstellt um mein problem zu veranschaulichen.
https://www.herber.de/bbs/user/914...
11.07.2014 17:51:21
Thread-ID: 1369977
3 Beiträge
VBA Userform, Auswahl als Wert in bestimmte Zelle
tino2010

Hallo,
ich habe ein Problem, bei dem ich so nicht weiterkomme.
Ich habe folgendes vor:
Wenn in Zelle D4 ein Wert >=5, dann soll ein Makro gestartet werden, welches eine Userform öffnet. Die Userform enthält 5 Auswahlmöglichkeiten per Clickbutton (siehe Bild). Wenn nun der User "N...
29.01.2015 23:03:20
Thread-ID: 1406205
2 Beiträge
Mehrere Zellen bzw. Range ansprechen
Noureddine

Hallo zusammen,
mein Ziel ist es über ein Makro alle angesprochenen Zellen umzuwandeln. In dem Fall vom Bruttobeträge auf Nettobeträge.
Ich bin soweit das ich eine Zelle ändern kann, jedoch leider noch kein Bereich bzw. mehrere Zellen. Es wäre auch schon, wenn er Text und Ziffer erkennt...
18.01.2016 21:43:26
Thread-ID: 1469657
4 Beiträge
VBA bestimmte Zellen aus 2Tabellen vereinen
john.doe

Hallo zusammen,
ich bin leider ein Laie was VBA angeht und hoffe nun auf eure Untersützung. Ich möchte bestimme Zellen aus zwei Tabellenblättern in einem dritten vereinen.
Ich möchte überprüfen ob in Tabelle1 in Zelle H20 (und dann abwärts bis zum Schluss) eine 1 oder eine 0 steht.
07.03.2016 19:08:27
Thread-ID: 1480498
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Mehrere Zellen ansprechen in VBA

Schritt-für-Schritt-Anleitung

  1. Zelle ansprechen: Um in VBA mehrere Zellen anzusprechen, kannst Du den Bereich mit Range oder Cells definieren. Beispiel:

    Dim rng As Range
Set rng = Range("A1:A10")

  2. Formeln kopieren: Wenn Du Formeln aus einer bestimmten Zelle in mehrere Zellen kopieren möchtest, kannst Du eine Schleife verwenden. Hier ein einfaches Beispiel:

    Dim i As Long
For i = 1 To 10
   Cells(i + 1, 1).Formula = Cells(i, 1).Formula
Next i

  3. Einfügen einer neuen Zeile: Um eine neue Zeile unter der aktuellen Zeile einzufügen, nutzt Du:

    ActiveCell.Offset(1, 0).EntireRow.Insert

  4. Kopieren von spezifischen Zellen: Wenn Du nur bestimmte Zellen innerhalb einer Zeile ansprechen möchtest, kannst Du dies mit einer Schleife tun:

    Dim i As Long
For i = 9 To 19
   Cells(r_zeile + 1, i).Formula = Cells(r_zeile, i).Formula
Next i

Häufige Fehler und Lösungen

  • Fehler: Zelle nicht gefunden: Wenn Du versuchst, eine Zelle anzusprechen, die nicht existiert, erhältst Du einen Laufzeitfehler. Stelle sicher, dass die Zelle innerhalb des gültigen Bereichs liegt.

  • Fehler: Formel wird nicht korrekt kopiert: Überprüfe, ob Du die richtige Zelle angesprochen hast. Verwende Debug.Print um den aktuellen Wert zu überprüfen.

Alternative Methoden

  • Copy und PasteSpecial: Eine einfache Möglichkeit, mehrere Zellen zu kopieren und einzufügen, ist die Verwendung von Copy und PasteSpecial. Beispiel:

    ActiveCell.EntireRow.Copy
ActiveCell.Offset(1, 0).EntireRow.PasteSpecial xlPasteFormulas

  • Zellen in einem Array speichern: Du kannst Werte in ein Array speichern und dann in die Zielzellen einfügen. Dies kann die Performance verbessern, besonders bei großen Datenmengen.

Praktische Beispiele

  1. Kopieren von Formeln in mehrere Zellen:

    Sub KopiereFormeln()
   Dim i As Long
   Dim r_zeile As Long
   r_zeile = ActiveCell.Row
   For i = 9 To 19
       Cells(r_zeile + 1, i).Formula = Cells(r_zeile, i).Formula
   Next i
End Sub

  2. Einfügen einer Zeile und Kopieren spezifischer Zellen:

    Sub NeueZeileEinfügen()
   Dim r_zeile As Long
   r_zeile = ActiveCell.Row
   ActiveCell.Offset(1, 0).EntireRow.Insert
   Dim i As Long
   For i = 9 To 19
       Cells(r_zeile + 1, i).Formula = Cells(r_zeile, i).Formula
   Next i
End Sub

Tipps für Profis

  • Nutze With-Anweisungen, um den Code lesbarer zu machen und die Performance zu steigern.
  • Vermeide das wiederholte Ansprechen von Zellen. Speichere Werte in Variablen oder Arrays.
  • Teste Deinen Code schrittweise, um Fehler schnell zu identifizieren.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Zellen in einer Zeile ansprechen?
Du kannst Cells in einer Schleife verwenden, um spezifische Zellen in einer Zeile anzusprechen, wie im obigen Beispiel gezeigt.

2. Was ist der Unterschied zwischen Range und Cells?
Range wird verwendet, um einen Bereich von Zellen anzusprechen, während Cells eine spezifische Zelle innerhalb eines Bereichs adressiert.

3. Kann ich auch leere Zellen in den Kopiervorgang einbeziehen?
Ja, Du kannst leere Zellen mit xlPasteFormulas kopieren, aber sie erhalten dann auch die Formel, die Du kopierst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige