Hallo,
ich habe zwei Tabellenblätter, bei mit einer Laufenden REchnungsnummer, die sich immer ums 1 erhöht, wenn man auf den Button klickt, allerdings soll ja nie die gleiche Rechnungsnummer zweimal erscheinen,
Aus diesem grund brauche ich einen Code, der dies verhindert, leider reichnen meine Kenntnisse nur für
Private Sub CommandButton2_Click()
[D14] = [D14] + 1
End Sub
das selbe für den anderen button,
jetzt sollen bei sich aber ergänzen das die rechnungnummer nie doppelt vorkommt,
ich hoffe mir hilft jemand weiter.
Hallo,
ich denke, daß kann man hinbekommen, wenn man zusätzlich noch das Tabellenblatt anspricht, wie z.B. Tabellenblatt1!D14, Tabellenblatt2!D14, usw.
Den kompletten Code habe ich noch nicht, aber ein Denkanstoß von mir war die Prüfung auf bereits vorhandene ID’s. Wie z.B.:
ID um eins erhöhen
Existiert ID schon in Tabellenblatt1!SpalteA oder in Tabellenblatt2!SpalteA
Wenn nicht, dann ID schreiben
Wenn existiert, dann ID nochmal um eins erhöhen.
Also leider funktioniert das nicht wenn ich das eingebe.
Kannst du mir auch nen kompletten Code schreiben
Hallo,
ich habe hier mal nach ein paar Code-Schnipsel:
Sub vergleich()
Dim rng1 As Range
Dim lngID1 As Long
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Set rng1 = Cells(Rows.Count, 1).End(xlUp)
Set wks1 = Worksheets(„Tabelle1“)
Set wks2 = Worksheets(„Tabelle2“)
I = 1
J = 1
Do Until wks1.Range(„A“ & I).Value = „“
Do Until wks2.Range(„A“ & J).Value = „“
If wks1.Range(„A“ & I).Value wks2.Range(„A“ & J).Value Then
'lngID1 = rng1
wks2.Range(„A“ & J).Interior.ColorIndex = 19
Exit Do
End If
J = J + 1
Loop
I = I + 1
J = 1
Loop
End Sub
Sub Tabellen_Vergleichen()
’ 2 Tabellen vergleichen und in Tabelle2 kennzeichnen
’ Tabelle1 Original Spalte A, Tabelle 2 Kopie Spalte B
’ alle die von Tabelle1 in Tabelle2 vorhanden sin sollen gekennzeichnet werden
Dim LoI As Long
Dim LoJ As Long
Dim LoLetzte1 As Long
Dim LoLetzte2 As Long
LoLetzte1 = 65536
With Worksheets(„Tabelle1“)
If .Range(„A65536“) = „“ Then LoLetzte1 = .Range(„A65536“).End(xlUp).Row
End With
LoLetzte2 = 65536
With Worksheets(„Tabelle2“)
If .Range(„B65536“) = „“ Then LoLetzte2 = .Range(„B65536“).End(xlUp).Row
End With
For LoI = 1 To LoLetzte1
For LoJ = 1 To LoLetzte2
If Worksheets(„Tabelle1“).Cells(LoI, 1) = Worksheets(„Tabelle2“).Cells(LoJ, 2) Then
Worksheets(„Tabelle2“).Cells(LoJ, 2).Interior.ColorIndex = 19
End If
Next LoJ
Next LoI
End Sub
Sub Tabellen_Vergleichen2()
’ 2 Tabellen vergleichen und in Tabelle2 kennzeichnen
’ Tabelle1 Original, Tabelle 2 Kopie
’ es wird Zelle A1 mit A1 verglichen usw.
Dim I As Integer
Dim J As Integer
’ Tabelle2 benutzten Bereich Rot markieren
Worksheets(„Tabelle2“).UsedRange.Interior.ColorIndex = 3
’ vergleich
For I = 2 To Worksheets(„Tabelle1“).Cells.SpecialCells(xlLastCell).Row
For J = 1 To Cells(I, Columns.Count).End(xlToLeft).Column
If Worksheets(„Tabelle1“).Cells(I, J) = Worksheets(„Tabelle2“).Cells(I, J) Then
Worksheets(„Tabelle2“).Cells(I, J).Interior.ColorIndex = xlNone
End If
Next J
Next I
End Sub
Kann man bestimmt verwenden. Nur anstatt die Zellen farblich zu markieren, muß die ID höher gesetzt werden. Das gleiche für den zweiten Button, nur dann in Bezug auf Tabelle1.