Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen in anderen Tabellen vergleichen

Zahlen in anderen Tabellen vergleichen
25.01.2009 21:39:13
Adi
Hallo ich könnte Hilfe gebrauchen,
in den 6 Tabellen werden in Spalte A A5:A36 willkürlich Zahlen eingetragen.
Es darf keine Zahl zweimal vorkommen. Ein Makro sollte dafür sorgen.
Gruß Adi
https://www.herber.de/bbs/user/58785.xls

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen in anderen Tabellen vergleichen
25.01.2009 21:56:39
Tino
Hallo,
versuche es mal mit diesem Code.
Kommt als Code in DieseArbeitsmappe
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim myTab As Worksheet
Dim Kontrolle As Boolean
Dim Wert As Variant

Kontrolle = False
Wert = Target.Value

With Application
 .EnableEvents = False
    
    For Each myTab In ThisWorkbook.Worksheets
     
     If myTab.Name <> Sh.Name And Left(Sh.Name, 3) = "Bel" Then
       
       If IsNumeric(.Match(Target.Value, Sh.Columns(1), 0)) Then
        Kontrolle = True
        Exit For
       End If
     
     End If
    
    Next myTab
 
    If Kontrolle Then
       Target.Value = ""
       MsgBox "Der Wert " & Wert & " ist schon vergeben"
    End If

    .EnableEvents = True
 
End With

End Sub


Gruß Tino

Anzeige
AW: Zahlen in anderen Tabellen vergleichen
26.01.2009 02:57:00
Ramses
Hallo Tino
Getestet hast du das aber nicht ;-) ?
If IsNumeric(.Match(Target.Value, Sh.Columns(1), 0)) Then
Du prüfst trotz "myTab" IMMER nur das Vorkommen im auslösenden Sh.Object, wo du den Wert eingetragen hast.
Ausserdem werden Doppeleingaben in der aktuellen Tabelle damit auch nicht verhindert.
Ich denke COUNTIF >= 1 wäre besser geeignet, dann kannst du auch die aktuelle Tabelle prüfen lassen
ob der Eintrag bereits vorhanden ist
Gruss Rainer
gut aufgepasst,...
26.01.2009 07:35:00
Tino
Hallo Rainer,
war wohl gestern doch zu späht, Danke.
Was habe ich den da für einen Quatsch gemacht?
Hier die Korrigierte Version.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim myTab As Worksheet
Dim Kontrolle As Boolean
Dim Wert As Variant
Dim iCounter As Integer
Kontrolle = False
Wert = Target.Value

With Application
 .EnableEvents = False
    
  With Application.WorksheetFunction
    For Each myTab In ThisWorkbook.Worksheets
     
     If Left(Sh.Name, 3) = "Bel" Then
       
       If .CountIf(myTab.Columns(1), Target) > 0 Then
        
        iCounter = iCounter + .CountIf(myTab.Columns(1), Target)
            If iCounter > 1 Then
             Kontrolle = True
             Exit For
            End If
       End If
     
     End If
    
    Next myTab
  End With
    
    If Kontrolle Then
       Target.Value = ""
       MsgBox "Der Wert " & Wert & " ist schon vergeben"
    End If

    .EnableEvents = True
 
End With

End Sub


Gruß Tino

Anzeige
AW: gut aufgepasst,...
26.01.2009 12:35:00
Adi
Hallo Timo,
Ich habe zwei Probleme
1. In „ DieseArbeitsmappe „ steht schon ein Makro
ein Zweites geht wohl nicht, oder? dieses Makro
habe ich zum Test gelöscht, brauche es aber dringend.
Timo, dass Makro welches du mir erstellt hast funktioniert
in der Testtabelle die ich hochgeladen hatte.
Wenn ich das Makro in der Original Tabelle einsetze,
klappt es nicht, sobald ich in Spalte A eine Zahl eingebe
kommt die Meldung Der Wert ist schon vergeben,
aber es steht keine Zahl dort.
Was kann man machen?
Gruß Adi
AW: gut aufgepasst,...
26.01.2009 13:51:14
Tino
Hallo,
zweites geht schon, man müsste nur schauen wie man diese vereinen kann.
Das kann ich aber so nicht beurteilen.
Am besten ist es eine Beispieldatei hochladen, die deinem Original entspricht.
Persönliche Daten kannst Du löschen, nur dass Problem muss bestehen bleiben.
Gruß Tino
Anzeige
AW: Zahlen in anderen Tabellen vergleichen
26.01.2009 11:49:00
Adi
Hallo Excelfreunde,
Danke an Timo und Ramses,
ich bin sehr beeindruckt wie schnell man hier mit den schwierigsten
Fragen geholfen wird. Meine letzte Anfrage ist perfekt gelößt
worden.
bis bald
Adi
AW: Noch eine Unklarheit.
26.01.2009 17:30:22
Adi
Hi Timo oder Ramses,
Ich hatte oben geschrieben, daß es doch nicht so läuft wie ich erst dachte.
In der Testtabelle steht in A1 kein Text , aber im Original steht in A1 ein Text,
"Garten-Nr "
Im Bereich A5:A36 werden Zahlen eingegeben, und zwar in jeder Tabelle.
Das nur noch mal als Hinweis.
Gruß Adi
AW: Noch eine Unklarheit.
26.01.2009 17:46:00
Tino
Hallo,
dann grenzen wir den Bereich einfach ein.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim myTab As Worksheet
Dim Kontrolle As Boolean
Dim Wert As Variant
Dim iCounter As Integer
Kontrolle = False
Wert = Target.Value

With Application
 .EnableEvents = False
    
  With Application.WorksheetFunction
    For Each myTab In ThisWorkbook.Worksheets
     
     If Left(Sh.Name, 3) = "Bel" Then
       
       If .CountIf(myTab.Range("A5:A36"), Target) > 0 Then
        
        iCounter = iCounter + .CountIf(myTab.Columns(1), Target)
            If iCounter > 1 Then
             Kontrolle = True
             Exit For
            End If
       End If
     
     End If
    
    Next myTab
  End With
    
    If Kontrolle Then
       Target.Value = ""
       MsgBox "Der Wert " & Wert & " ist schon vergeben"
    End If

    .EnableEvents = True
 
End With

End Sub


PS: ich heiße Tino, nicht Timo (so viel Zeit muss sein ;-))
Gruß Tino

Anzeige
AW: Noch eine Unklarheit.
26.01.2009 22:31:00
Tino
Hallo,
teste mal diese Version, habe dass Makro in ein Modul ausgelagert.
Habe die Datei in ein *.zip Archiv gepackt.
https://www.herber.de/bbs/user/58811.zip
Gruß Tino
AW: Alles O. K.
27.01.2009 11:23:09
Adi
Hallo Tino,
es funktioniert wunderbar, eine klitze Kleinigkeit
hätte ich da noch, wenn die Daten aus der Hebeliste geholt
werden, dann entsteht so ein geflimmer auf dem
Bildschirm. Gib mir einen Tip was ich machen soll.
Mit .ScreenUpdating = False oder True habe ich es versucht
ohne Erfolg.
Gruß Adi
Anzeige
AW: Alles O. K.
27.01.2009 13:47:42
Tino
Hallo,
Du musst darauf achten, dass Du ScreenUpdating nur einmal im gesamten Codeverlauf
aus bzw. wieder einschaltest.
Dies macht man in der Regel am Anfang und am Ende des Codes.
Was dann noch an Flackern übrig bleibt, mit dem musst Du leben.
Gruß Tino
AW: Alles O. K.
27.01.2009 16:10:00
Adi
Hallo Tino
Alles O. K.
Danke
Gruß Adi

310 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Anzeige
Zellen- Inhalt auf Zahl 0 zurücksetzen
Lemmi

Hallo zusammen,
ich habe eine Arbeitsliste in der durch eine Drop- Down Menü Auswahl 0,1,2,3 sowie Leerstelle- Auswahl durchgeführt wird. (ab Spalte M6)
In der Spalte ab O6 wird eine Bewertung Durchgeführt. Diese wird auch durch Drop- Down umgesetzt!
Wird nun in der Spalte O di...
02.09.2008 17:35:00
Thread-ID: 1006885
12 Beiträge
Eingabe in Userform in Tabelle suchen
Thorsten

Hallo,
ich habe ein Userform mit einem Textfeld, in das ich ein Datum eintragen will. Nach click auf ok soll dieses Datum in meiner Tabelle gefunden und markiert werden. (A1:A365) Kann mir jemand bei der Umsetzung helfen?
Vielen Dank im Voraus.
Thorsten
12.09.2008 14:41:00
Thread-ID: 1009379
3 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 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
1
4
18
7
3
11
2
4
2
4
6
6
4
4
6
3
7
9
4
3
2
6
2
3
5