Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1196to1200
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

Formel mit Wert überschreiben

Formel mit Wert überschreiben
Sönke
Hallo Excel Profis,
habe folgendes Problem: im Tabellenblatt 1 stehen in der Spalte A Auftragsnummern.
Im Tabellenblatt 2 werden diese Auftragsnummer mit =Tabellenblatt1!A1 übernommen. In den Spalten B und C werden Start und Endzeit für die Aufträge festgehalten.
Jetzt zu meinem Problem: wenn ich im Tabellenblatt 1 die Auftragsnummern neu sortiere geschieht dies natürlich auch im Tabellenblatt 2. Das Problem ist, dass dann die Zeiten nicht mehr zu den Auftragsnummern passen.
Gibt es die Möglichkeit das die Auftragsnummer in Tabellenblatt 2 trotz einer Änderung im Tabellenblatt 1 bestehen bleibt. Formel durch Auftragsnummer ersetzen ?
Bin für jede Lösung dankbar.
Gruß Sönke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Bsp per VBA
17.01.2011 23:12:26
CitizenX
Hallo Sönke,
probiere mal das:
Code kommt ins Modul der Tabelle 2:
Option Explicit
Private Sub Worksheet_Activate()
Dim i&, lngLast1, lngLast2, CheckItem
lngLast1 = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To lngLast1
CheckItem = Application.Match(Sheets("Tabelle1").Cells(i, 1), _
Sheets("Tabelle2").Columns(1), 0)
If Not IsNumeric(CheckItem) Then
lngLast2 = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Tabelle2").Cells(lngLast2, 1) = Sheets("Tabelle1").Cells(i, 1)
End If
Next
Application.ScreenUpdating = True
End Sub
Grüße
Steffen
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige