|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.11.2010 10:03:15 |
... |
|
|
|
10.11.2010 17:06:13 |
Severus |
|
|
|
11.11.2010 07:12:41 |
... |
|
|
|
11.11.2010 07:47:13 |
... |
|
|
|
11.11.2010 08:09:16 |
Severus |
|
|
|
11.11.2010 08:23:29 |
... |
|
|
|
11.11.2010 09:03:13 |
Severus |
|
|
 Aw:Aw:Daten in die nächst freie Zeile kopieren |
11.11.2010 09:10:22 |
... |
|
|
|
11.11.2010 09:27:25 |
Severus |
|
|
|
11.11.2010 09:52:12 |
... |
|
|
|
11.11.2010 10:15:03 |
... |
|
|
|
11.11.2010 10:22:46 |
... |
|
|
|
11.11.2010 10:29:02 |
Severus |
|
|
Von:
... |
Datum:
11.11.2010 09:10:22 |
Views:
1035 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Daten in die nächst freie Zeile kopieren |
Sub Eintrag()
Dim WB As Excel.Workbook
Dim LetzteZeile As Long
Dim SuchBegriff As Variant
Dim Gefunden As Variant
On Error Resume Next
Dim LaufZahl As Long
With ThisWorkbook.ActiveSheet
LetzteZeile = .Cells.Rows.Count
LetzteZeile = .Cells(LetzteZeile, 1).End(xlUp).Row
For Each WB In Workbooks
If WB.Name <> ThisWorkbook.Name Then
SuchBegriff = WB.ActiveSheet.Range("A2")
Gefunden = Application.WorksheetFunction.Match(SuchBegriff, .Range(.Cells(1, 1), .Cells(LetzteZeile, 1)), 0)
If Err.Number <> 0 Then Err.Clear
If IsEmpty(Gefunden) Then
.Cells(LetzteZeile + 1, 1) = SuchBegriff
.Cells(LetzteZeile + 1, 2) = Date
.Cells(LetzteZeile + 1, 2).NumberFormat = "dd.MM.YYYY"
LetzteZeile = LetzteZeile + 1
Else
MsgBox "Belegnummer " & SuchBegriff & " wurde bereits am " & Format(.cells(Gefunden,2), "dd.MM.yyyy") & " eingelesen!", vbExclamation, "Hinweis..."
End If
End If
Next
End With
End Sub
Severus
funktioniert alles, jetzt hab ich nur das problem, dass er mir auf einmal die belegnummern, die schon in der tabelle stehen trotzdem einliest. war vorhin nicht so und jetzt auf einmal gehts nicht mehr! woran kann das liegen? ärgert mich jetzt |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.11.2010 10:03:15 |
... |
|
|
|
10.11.2010 17:06:13 |
Severus |
|
|
|
11.11.2010 07:12:41 |
... |
|
|
|
11.11.2010 07:47:13 |
... |
|
|
|
11.11.2010 08:09:16 |
Severus |
|
|
|
11.11.2010 08:23:29 |
... |
|
|
|
11.11.2010 09:03:13 |
Severus |
|
|
Aw:Aw:Daten in die nächst freie Zeile kopieren |
11.11.2010 09:10:22 |
... |
|
|
|
11.11.2010 09:27:25 |
Severus |
|
|
|
11.11.2010 09:52:12 |
... |
|
|
|
11.11.2010 10:15:03 |
... |
|
|
|
11.11.2010 10:22:46 |
... |
|
|
|
11.11.2010 10:29:02 |
Severus |
|
|