Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte und Zeile vergleichen

Spalte und Zeile vergleichen
wolle
Hallo Forumsfreunde,
habe mal wieder ein kleines Problem:
Ich möchte Werte aus Spalte (B) mit Werte aus Zeile (2) vergleichen. Wenn die Werte gleich sind soll im Schnittpunkt ein X stehen. Wenn Sie nicht gleich sind soll da natürlich nichts stehen. Gibt das da ein VBA-Code für, den ich mit einem Macro starten kann?
Danke schon mal für Eure Hilfe. Ich stehe da echt auf dem Schlauch und im Forum hatte ich nichts gefunden.
Gruß Wolle
https://www.herber.de/bbs/user/64449.xls

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spalte und Zeile vergleichen
16.09.2009 10:40:15
MichaV
Hallo,
muss es ein Makro sein?
=Wenn($B3=C$2;"x";"") in C3 geschrieben und nach rechts und dann nach unten gezogen reicht aus.
Gruss- Micha
AW: Spalte und Zeile vergleichen
16.09.2009 10:48:47
wolle
Hallo Micha,
ja das klappt schon mal, nur ein Makro oder VBA währe schon besser, da ich die Zellen eventuell noch bearbeiten muss, und dann ist ja immer die Formel weg. Und ein VBA währe besser weil es sicherer ist das nicht eine Zelle übersehen wird.
AW: Spalte und Zeile vergleichen
16.09.2009 10:52:56
MichaV
na dann lass ich mal offen.
AW: Spalte und Zeile vergleichen
16.09.2009 11:03:36
wolle
Trotzdem vielen vielen Dank dafür.
noch offen!
16.09.2009 11:12:53
MichaV
..ich mach wieder auf. Wenn Du antwortest und bei "Frage noch offen" keinen Haken setzt (so wie ich das jetzt mache), dann wird die Frage nicht als offen gekennzeichnet und andere Antworter könnten denken dass das Thema erledigt ist. Weil ich den Haken aber nun setze sehen andere sofort dass das Thema noch nicht erledigt ist. Das erhöht die Wahrscheinlichkeit einer Antwort.
Wenn Du also der Meinung bist dass die Frage noch offen ist, dann setze einen Haken beim Antworten. Oder lass mich das machen ;o)
Gruß- Micha
Anzeige
AW: noch offen!
16.09.2009 11:41:37
Chris
Servus,
als Makro:
Sub tt()
Dim rSuche As Range, rFInde As Range, strErste As String, k As Long
Set rFInde = Range("B3:B8") ' Bereich anpassen
For k = 3 To 12 ' hier Spalte wie im Beispiel 3 bis 12 = C bis L, evtl anpassen
Set rSuche = rFInde.Find(what:=Cells(2, k).Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not rSuche Is Nothing Then
strErste = rSuche.Address
Do
Cells(rSuche.Row, k) = "X"
Set rSuche = rFInde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address  strErste
End If
Next k
End Sub
geht auch für mehrere Treffer. Das Ganze ist für den Bereich in deinem Beispiel, wenn der eigentlich anders ist, beachte die Anmerkungen im Makro.
Gruß
Chris
Anzeige
AW: Nachbesserung
16.09.2009 11:43:03
Chris 

Sub tt()
Dim rSuche As Range, rFInde As Range, strErste As String, k As Long
Set rFInde = Range("B3:B8") ' Bereich anpassen
For k = 3 To 12 ' hier Spalte wie im Beispiel 3 bis 12 = C bis L, evtl anpassen
Set rSuche = rFInde.Find(what:=Cells(2, k).Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not rSuche Is Nothing Then
strErste = rSuche.Address
Do
Cells(rSuche.Row, k) = "X"
Set rSuche = rFInde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address  strErste
End If
Next k
Set rSuche = Nothing
Set rFInde = Nothing
End Sub
So ist es besser.
gruß
Chris
Anzeige
AW: noch offen_oT
16.09.2009 11:43:35
Chris
.
OT @ Micha
19.09.2009 18:37:10
{Boris}
Hi Micha,
ich find Deine Frage nicht mehr in unserem Briefkasten. Kannst Du sie nochmal schicken? Ich versprech auch, zu antworten ;-))
Grüße Boris
hiermit müsste es gehen
16.09.2009 11:54:02
Tino
Hallo,
Sub Beispiel()
Dim Bereich As Range
Dim meAr, A As Long, B As Long
Set Bereich = Range("B2:L8")

meAr = Bereich
For B = 2 To Ubound(meAr)
    For A = 2 To Ubound(meAr)
        If meAr(B, 1) = meAr(1, A) Then
         meAr(B, A) = "X"
        Else
         meAr(B, A) = ""
        End If
    Next A
Next B

Bereich = meAr
End Sub
Gruß Tino
Anzeige
AW: Danke es hat geklappt.
16.09.2009 13:01:42
wolle
Danke Euch allen für die Hilfe. Es hat geklappt.
Gruß Wolle

314 Forumthreads zu ähnlichen Themen

Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Anzeige
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
Anzeige
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
Zeile und Spalte markieren
Karsten

Hallo Excel Freunde,
ich habe die Adresse von 2 Zellen (ZeileA, SpalteA) und (ZeileB, SpalteB) und möchte den gesmten Bereich markieren und dann kopieren.
Habe folgendes probiert:
Set Bereich1 = Rows("ZeileA:ZeileB")
Set Bereich2 = Columns("SpalteA:SpalteB")
Set Gesamtb = Un...
18.12.2008 15:54:47
Thread-ID: 1033909
5 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
16
6
10
3
2
4
7
2
2
4
8
4
3
13
1
5
7
1
11
12
6
6
10
4