Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
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
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Zellen auf verschiedenen Sheets vergleichen

Forumthread: Excel Zellen auf verschiedenen Sheets vergleichen

Excel Zellen auf verschiedenen Sheets vergleichen
04.07.2019 00:22:20
Bernd_Lauert
Moin ich hätte einige Fragen zum erstellen eines etwas komplexeren Excel VBA-Dokuments.
Ich möchte ein Dokument anfertigen, in das ich mehrere Tabellen importieren und die Spalten der importieren Tabellen via. Listbox an und abwählen kann. Die importierten Tabellen befinden sich auf jeweils eigenen Worksheets (Tabelle1, Tabelle 2, Tabelle 3 etc.). Es ist vielleicht noch gut zu wissen, dass alle Tabellen grundsätzlich den selben Aufbau haben und sollte dies nicht der Fall sein, soll Excel eine Fehlermeldung via Msgbox ausgeben. Daher möchte ich die Strings der Spaltenüberschriften miteinander vergleichen. Meine Frage ist daher:
1. Wie kann ich alle A1 Zellen der importierten Tabellen miteinander vergleichen und dies mit allen anderen Spalten wiederholen (B1, C1, D1 etc bis die Tabelle zuende geht)? Ich habe hier primär das Problem die For-Schleife richtig zu formulieren.
Das nächste Problem wäre das formatieren der Tabellen nachdem ich sie per Listbox an und abgewählt habe. Für Denkanstöße hierzu wäre ich außerdem sehr dankbar.
Für die Hilfe bedanke ich mich im voraus.
Gute Nacht
Bernd
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Excel Zellen auf verschiedenen Sheets vergleichen
04.07.2019 05:46:32
Hajo_Zi
Hallo Bernd,
gehe in Zieltabelle in Zielzelle
= wäghhle A1 in erster Tabelle = wähle A1 in anderer Tabelle.
und andere Tabele andere Zielzele wählen usw.
=Tabelle3!A1=Tabelle2!A1

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: Excel Zellen auf verschiedenen Sheets vergleichen
04.07.2019 06:51:38
Torsten
Hajo,
du wirst immer merkwuerdiger. Kannst nicht mal mehr eindeutige deutsche Saetze schreiben. Ganz zu schweigen von Woertern.
Ich denke, es wird Zeit fuer dich, dich von den Foren zu verabschieden. Du nervst nur noch mit deinen daemlichen Kommentaren.
Klink dich einfach aus und geh in Rente.
Anzeige
AW: Excel Zellen auf verschiedenen Sheets vergleichen
04.07.2019 06:53:30
Torsten
wieder offen
AW: Excel Zellen auf verschiedenen Sheets vergleichen
04.07.2019 06:53:47
Torsten
offen
AW: Excel Zellen auf verschiedenen Sheets vergleichen
04.07.2019 11:36:38
EtoPHG
Hallo Bernd,
Probier es mal mit diesem MakroCode in einem Standard-Modul. Der Vergleich läuft für die aktive Arbeitsmappe: 
Option Explicit
Sub SheetsTitelRowCheck()
' Ausschliessen von zu überprüfenden Blattnamen
Const excludeWsArray As String = ";Übersicht;History;"
' Name des Referenz Blatt. Alle restlichen Blätter werden gegen dieses Verglichen
Const wsRName As String = "Tabelle1"
' Zeile der Spaltenüberschriften
Const lRefRow As Long = 1
' Definition von Mappen und Tabellen
Dim wb As Workbook
Dim wsR As Worksheet, wsC As Worksheet
Dim rRef As Range
' Definition von Indices und anderen
Dim lCol As Long
Dim sText As String
' Überprüfung
Set wb = ActiveWorkbook                 ' ggf. durch vollständigen Filenamen ersetzen
Set wsR = wb.Worksheets(wsRName)            ' setzen des Referenzblatts
Set rRef = wsR.Range(wsR.Cells(lRefRow, 1), _
wsR.Cells(lRefRow, wsR.Columns.Count).End(xlToLeft))
' jedes Worksheet, ausser Referenz und Auszuschliessende Blätter
For Each wsC In wb.Worksheets
If wsC.Name  wsRName And InStr(excludeWsArray, ";" & wsC.Name & ";") = 0 Then
For lCol = 1 To rRef.Cells.Count
If wsC.Cells(lRefRow, lCol)  rRef.Cells(1, lCol) Then
If IsEmpty(wsC.Cells(lRefRow, lCol)) Then
sText = "...leer..."
Else
sText = wsC.Cells(lRefRow, lCol).Text
End If
MsgBox wsC.Name & " " & wsC.Cells(lRefRow, lCol).Address(0, 0) & _
" Wert [" & sText & "] ungleich Referenzwert!", _
vbExclamation, "Rerenzwert Wert [" & _
rRef.Cells(lRefRow, lCol).Text & "]"
Exit For
End If
Next lCol
End If
Next wsC
End Sub
Gruess Hansueli
Anzeige
AW: Excel Zellen auf verschiedenen Sheets vergleichen
05.07.2019 13:31:44
Bernd
Hallo Hansueli, dein Makro funktioniert einwandfrei. Herzlichen Dank.
Bernd
;

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