Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
06.12.2012 00:08:45 |
Clemens |
|
|
Vergleich zweier Spalten, Aktualisierung und Neueintrag |
06.12.2012 12:57:55 |
Lutz |
|
|
|
06.12.2012 21:57:17 |
Clemens |
|
|
|
07.12.2012 10:14:01 |
Lutz |
|
|
|
07.12.2012 12:02:00 |
Clemens |
|
|
Von:
Lutz |
Datum:
06.12.2012 12:57:55 |
Views:
928 |
Rating:
|
Antwort:
|
Thema:
Vergleich zweier Spalten, Aktualisierung und Neueintrag |
Hallo Clemens.
folgender Code sollte beide Aufgaben erledigen:
Public Sub TabelleGesamtAktualisieren()
Dim akt As Worksheet
Dim ges As Worksheet
Dim idx As Integer
Dim rg As Range
Set akt = Worksheets("AkTag")
Set ges = Worksheets("Gesamt")
For idx = akt.Range("A1").End(xlUp).Row To akt.Range("A1").End(xlDown).Row
Set rg = ges.Range("J:J").Find(What:=akt.Range("A" & idx).Value, LookIn:=xlValues, LookAt:=xlWhole)
If rg Is Nothing Then
Set rg = ges.Range("J" & ges.Range("J1").End(xlDown).Row + 1)
rg.Value = akt.Range("A" & idx)
End If
rg.Offset(0, -1) = akt.Range("B" & idx)
rg.Offset(0, 1) = akt.Range("C" & idx)
Next idx
End Sub
Grüße Lutz
|
- 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
|
|
06.12.2012 00:08:45 |
Clemens |
|
|
Vergleich zweier Spalten, Aktualisierung und Neueintrag |
06.12.2012 12:57:55 |
Lutz |
|
|
|
06.12.2012 21:57:17 |
Clemens |
|
|
|
07.12.2012 10:14:01 |
Lutz |
|
|
|
07.12.2012 12:02:00 |
Clemens |
|
|