Programmfehler bei einer Vergleichsfunktion!

Sub Jan3() Dim z, s, c As Integer With Sheets("Tabelle1") lz = .Cells(Rows.Count, 3).End(xlUp).Row For z = 4 To lz 'Zeile 4 - letzte Zeile in Tabelle1 For s = 7 To 3 Step -1 'Spalte 7 - 3 in Tabelle1 If Not .Cells(z, s) = "" Then Wert = .Cells(z, s) For c = 5 To 1 Step -1 'Spalte 5 - 1 in Tabelle2 Set w = Sheets("Tabelle2").Columns(c).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole) If Not w Is Nothing Then If .Cells(z, 8) < Chr(c + 64) Then .Cells(z, 8) = Sheets("Tabelle2").Cells(1, c) Exit For End If Next c End If Next s Next z End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Luc,
mein Posting gelesen? Ich habe geschrieben, dass es im Text stand und nicht im Makro.
Warum antwortest Du und vor allem in dieser Art, wenn Du die Frage nicht verstehst? Jan hat beschrieben, dass sein bisheriges Makro - dass ist das gepostete - Buchstaben rausgeholt hat und er jetzt Zahlen - speziell das Maximum - benötigt. Er braucht demzufolge was ganz anderes (oder was kombiniertes).
Und wer hat eigentlich das, was Microsoft da unter die Leute bringt, anerkannt? Gibt's da einen Link, hast Du was schriftliches? Bei der nächsten Umfrage würde ich gern mitmachen. Dafür sind vielleicht auch die Betatester zuständig? Da kenne ich leider keinen. Und die testen wohl mehr, ob das funktioniert was MickySoft uns da vorsetzt.
Ich glaube, wir müssen uns damit abfinden, ob es uns passt oder nicht ... :-(
Wie soll Jan den Oberteil nun eigentlich nennen? Aus Deiner Erklärung kommt man eventuell auf den falschen Weg, denn dass was Du beschreibst sind laut Mickysoft verschiedene Sachen die Du da in einen Topf wirfst und Jan ging es ja um Zeile 1.
Wenn Du Jan belehren willst, dann reicht doch kurz und bündig, dass man das was in Zeile 1 steht z.B. Überschrift nennen kann wie es Excel z.B. beim Sortieren bezeichnet (WEITERLESEN! Aussage stimmt nicht.). Wobei dass beim Sortieren wiederum nicht immer die Zeile 1 sein muss.
Mich und bestimmt auch den Rest des Forums würde allerdings Deine Lösung interessieren, wie Du die Spaltenköpfe - so würdest Du das nennen ? - so wie von Jan gewollt ändern tust. Du meintest doch mit Deinem Kopf auch die feste Excel-Bezeichnung oder Nummer der Spalte? So wie Du Deine Frage gestellt hast könnte man vermuten, dass es da auch eine Lösung gibt - ansonsten hättest Du der Vollständigkeit halber bestimmt geschrieben, dass es keine gibt.
Und wenn wir gerade beim Klugsch... sind, beim Seiteneinrichten werden die Dinger mit den festen Buchstaben oder Zahlen Spaltenüberschriften genannt ... ;-) Da kommen wir fast ins Schleudern mit den Überschriften beim Sortieren - siehe oben - oder? Tabellenkopf ist bei den meisten das, was man z.B. mit der Kopfzeile - siehe wieder Seite einrichten - definieren kann. Das ist zuweilen die Zeile 1. Und siehe da - was hatte Jan geschrieben ? Na gut, er wollte es in einer bestimmten Spalte - also wieder Spaltenkopf, von Tabellenkopf abgeleitet.
Nimms also nicht zu ernst, aber lerne weiter. Ich lerne auch ständig und versuche nicht zu vergessen, dass ich auch mal klein angefangen habe.
Mann hatte ich viel Zei, hoffentlich versteht das einer. ;-)))

Hallo Luc, Hallo André,
Danke für eure Hilfe! Durch eure Diskussion habe ich ebenfalls wieder viel dazu gelernt. Werde beim nächsten mal, wenn ich eine Frage haben sollte, mich mit meiner Wortwahl bessern.
An André:
Wo muß ich jetzt Dein Programmteil einfügen,
Sheets("tabelle1").[h1] = WorksheetFunction.Max(Sheets("tabelle2").Range("A1:H1"))
so dass nach meinem Vergleich zwischen Tabelle1 und Tabelle2 mir das richtige Ergebnis in Spalte H ausgegeben wird? Hab schon versucht Deinen Teil in das Programm einzusetzen, jedoch funktioniert es irgendwie nicht richtig und ich finde den Fehler nicht.
Ich möchte ja die Spalten aus den Tabellen mit einander vergleichen und dann soll die höchste Zahl der Spalte, in der der höchste Wert ist ausgegeben werden. z.B. in Tab1 Z12 wäre R13 die größte Zahl 5, welche dann in Spalte H/ Z12 ausgegeben werden soll. Beim Vergleich der Z15 müßte dann in Spalte H/ Z15 3 ausgegeben werden, da R26 der größte Wert ist.
Hoffe Du verstehst was ich meine. Es soll immer nur die Zahl ausgegeben werden, die nach dem Vergleich am höchsten ist (s.h. dazu Beispiele Tab1).
Danke für die Hilfe
Gruß Jan

Beliebteste Forumthreads (12 Monate)

Programmfehler bei einer Vergleichsfunktion!

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread