Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1276to1280
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
Inhaltsverzeichnis

Hilfeeeee

Hilfeeeee
Ralph
Hallo Forum,
habe folgenden Code, der auch so ganz gut funktioniert. Wenn das was ich suche nicht da ist, dann bringt er mir einen Fehler.
Gruß Ralph
Private Sub Helleskl_Click()
Zei = Worksheets("Tabelle1").Range("A" & Rows.Count).End(xlUp).Row + 1
Dim Artikel As String
Range("U1") = "2"
Artikel = Range("AA1")
With Worksheets("Tabelle1").Range("j1:j500")
Set c = .Find(What:=Artikel, LookIn:=xlValues)
c.Activate
Cells(ActiveCell.Row, 6).Select
If Not c Is Nothing Then
Cells(ActiveCell.Row, 6) = Cells(ActiveCell.Row, 6) + 1
Cells(ActiveCell.Row, 7) = Cells(ActiveCell.Row, 5) * Cells(ActiveCell.Row, 6)
Else
Range("X1") = "1"
Range("s1:aa1").Copy
Worksheets("Tabelle1").Range("A" & Zei).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
End With
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Hilfeeeee
16.09.2012 15:48:58
Josef

Hallo Ralph,
Private Sub Helleskl_Click()
  Dim rng As Range
  Dim Artikel As String
  Dim lngNext As Long
  
  With Worksheets("Tabelle1").Range("J1:J500")
    .Range("U1") = "2"
    Artikel = .Range("AA1")
    lngNext = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    Set rng = .Find(What:=Artikel, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    If Not rng Is Nothing Then
      .Cells(rng.Row, 6) = .Cells(rng.Row, 6) + 1
      .Cells(rng.Row, 7) = .Cells(rng.Row, 5) * .Cells(rng.Row, 6)
    Else
      .Range("X1") = "1"
      .Range("S1:AA1").Copy
      .Cells(lngNext, 1).PasteSpecial xlPasteValues
      Application.CutCopyMode = False
    End If
  End With
  
  Set rng = Nothing
End Sub



« Gruß Sepp »

Anzeige
AW: Hilfeeeee
16.09.2012 16:27:47
Ralph
Hallo josef,
jetzt zeigt er überhaupt nichts an (A:I).
nur in N,O,P zeigt er Zahlen
Gruß Ralph

AW: Klappt Danke
16.09.2012 17:00:50
Ralph
hallo sepp,
klappt alles
Danke
gruß Ralph

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige