Thema Datum  Von Nutzer Rating
Antwort
09.12.2010 21:48:25 Matthias0156
NotSolved
09.12.2010 21:58:33 Severus
NotSolved
09.12.2010 22:17:18 Matthias0156
NotSolved
Blau Aw:Kopieren von Daten
 10.12.2010 00:05:01 Severus
NotSolved
10.12.2010 02:48:47 Matthias0156
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
10.12.2010 00:05:01		 Views:
932		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Kopieren von Daten
Sub Werte_übertragen()
Dim QuellRange As Excel.Range
Dim ZielWert As Double
Dim rngMATRIX As Excel.Range
Dim LetzteZeile As Long
Dim LetzteZeile13 As Long
On Error Resume Next
With ThisWorkbook
LetzteZeile = .Sheets("Tabelle1").Cells(.Sheets("Tabelle1").Cells.Rows.Count, 1).End(xlUp).Row
LetzteZeile13 = .Sheets("Tabelle13").Cells(.Sheets("Tabelle13").Cells.Rows.Count, 1).End(xlUp).Row
Set rngMATRIX = .Sheets("Tabelle13").Range(.Sheets("Tabelle13").Cells(1, 1), .Sheets("Tabelle13").Cells(LetzteZeile13, 2))
With .Sheets("Tabelle1")
.Range(.Cells(1, 1), .Cells(LetzteZeile, 1)).Select
For Each QuellRange In Selection
ZielWert = Application.WorksheetFunction.VLookup(QuellRange, rngMATRIX, 2, False)
If Err.Number = 0 Then
QuellRange.Offset(0, 1) = ZielWert
Else
Err.Clear
QuellRange.Offset(0, 1) = Null
End If
Next
End With
Set rngMATRIX = Nothing
End With
End Sub


Severus

Ihre Antwort
  • 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: Name: Email:



  • 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
09.12.2010 21:48:25 Matthias0156
NotSolved
09.12.2010 21:58:33 Severus
NotSolved
09.12.2010 22:17:18 Matthias0156
NotSolved
Blau Aw:Kopieren von Daten
 10.12.2010 00:05:01 Severus
NotSolved
10.12.2010 02:48:47 Matthias0156
NotSolved