Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 18:39:44
Hilfe beim VBA-Code
08.10.2025 12:36:22
Hinweis für Word auf dem MAC
08.10.2025 12:35:32
Datumsabhängige Einträge in Zellen. Bedingter Formatierung.
08.10.2025 11:44:01
Faktor Uhrzeit hinzu fügen
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
1892to1896
1892to1896
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Schleife für mehrere Spalten durchfü

Forumthread: VBA Schleife für mehrere Spalten durchfü

VBA Schleife für mehrere Spalten durchfü
18.08.2022 10:14:35
M4R3k00
Moin, ich bin VBA-Anfänger und benötige Hilfe. Ich soll ein Makro Programmieren, um jeweils die Zellen einer Spalte auf Gleichheit zu überprüfen Der Vergleichswert steht jeweils in der 2. Zeile. Der Vergleich für Spalte A funktioniert bereits. Die For-Schleife soll nun für alle Spalten des Worksheets durchgeführt werden. Hier einmal der VBA-Code:

Sub Auswertung_Header()
Sheets("Vergleich Header").Select
Dim Zelle As Range
For Each Zelle In Range("A3:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If Zelle  "" Then
If Range("A2").Value  Zelle.Value Then GoTo error
End If
Next
If 1 = 2 Then
error:
MsgBox "Die Spalten Stimmen nicht überein"
End If
End Sub
Hierfür gibt es bestimmt eine Möglichkeit, sodass ich die Schleife nicht 40 mal Copy-Pasten muss mit den jeweils anderen Spaltindexen oder?
Vielen Dank im Voraus für eure Hilfe
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Schleife für mehrere Spalten durchfü
18.08.2022 10:32:13
Nepumuk
Hallo,
teste mal:

Option Explicit
Public Sub Auswertung_Header()
Dim objCell As Range
Dim lngColumn As Long
Dim strColumnLetter As String
With Worksheets("Vergleich Header")
For lngColumn = 1 To 40
For Each objCell In .Range(.Cells(3, lngColumn), .Cells(.Rows.Count, lngColumn).End(xlUp))
If Not IsEmpty(objCell.Value) Then
If .Range("A2").Value  objCell.Value Then
strColumnLetter = .Cells(1, lngColumn).Address(False, False)
strColumnLetter = Mid$(strColumnLetter, 1, Len(strColumnLetter) - 1)
Call MsgBox("Spalte " & strColumnLetter & " stimmt nicht überein.", vbExclamation, "Hinweis")
Exit For
End If
End If
Next
Next
End With
End Sub
Gruß
Nepumuk
Anzeige
AW: VBA Schleife für mehrere Spalten durchfü
18.08.2022 10:52:58
M4R3k00
Schonmal vielen Dank für die Hilfe,
klappt leider noch nicht ganz. Ich glaube das Problem liegt noch bei 

 If .Range("A2").Value  objCell.Value Then
. Das Vergleischswort steht nämlich nicht immer in "A2" sondern für Spalte B entsprechend in "B2" für Spalte C in "C2" und so weiter...
Anzeige
AW: VBA Schleife für mehrere Spalten durchfü
18.08.2022 10:55:23
Rudi 

If .Cells(2, lngColumn).Value  objCell.Value Then
Gruß
Rudi
AW: VBA Schleife für mehrere Spalten durchfü
18.08.2022 10:55:27
Nepumuk
Hallo,
ooooooooooooops, das habe ich übersehen. So natürlich:

If .Cells(2, lngColumn).Value  objCell.Value Then
Gruß
Nepumuk
Anzeige
AW: VBA Schleife für mehrere Spalten durchfü
18.08.2022 11:01:49
M4R3k00
Super, vielen Dank, jetzt heißt es nur noch Code verstehen :)
;
Anzeige
Anzeige

Infobox / Tutorial

VBA Schleife für mehrere Spalten effizient nutzen

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