Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
784to788
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

übergabe problem

übergabe problem
29.07.2006 13:04:29
Alexx
Moin Leute,
mein Programm soll aus einem Arbeitsblatt mit ner Tabelle Werte raussuchen. Wenn Felder Rot markiert worden sind, dann soll auf dieses Feld auf einem neuen Blatt mitsamt der dazugehörigen KD-Nr. und einem Zusatz zur KD-Nr. in der Spalte daneben auftauchen, das klappt auch prima. Aber auf dem Sheet2 sollen diese dann die Korrektur wieder in das Sheet1 übertragen werden und gleichzeitig der Farbwert wieder auf Weiß gesetzt werden. Das klappt nicht! Die Daten die ich zur Korrektur einsetzte werden nicht übergeben und ich weiß einfach nicht warum =(. Schaut euch doch bitte mal an wo der Fehler steckt.
https://www.herber.de/bbs/user/35437.xls
Besten dank schonmal :)
Gruß
Alexx

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

Betreff
Datum
Anwender
Anzeige
AW: übergabe problem
29.07.2006 14:53:43
Gerd L
Hallo Alexx,

Sub Daten_korregieren()
Dim Zelle As Range, rngKor As Range
Dim shDaten As Worksheet
Dim shKor As Worksheet
Dim Reihe As Long, Spalte As Long
Set shDaten = Sheets("Daten")
Set shKor = Sheets("Korrektur")
shDaten.Activate
For Each Zelle In Range(shKor.Cells(2, 1), shKor.Cells(65000, 1).End(xlUp))
Reihe = shDaten.Columns(1).Find(what:=Zelle.Value).Row
With shDaten.Cells(Reihe, Zelle.Offset(0, 2).Value)
.Value = Zelle.Offset(0, 5).Value
.Interior.ColorIndex = xlNone
Zelle.Offset(0, 6).Value = "ja"
End With
Next
End Sub

Grüße
Gerd
Anzeige
AW: übergabe problem
29.07.2006 15:39:22
Josef Ehrensberger
Hallo Alex!
Sub Daten_korregieren()
Dim objShData As Worksheet, objShCor As Worksheet
Dim rng As Range, rngF As Range

Set objShData = Sheets("Daten") 'hier den Sheet mit den fehlerhaften Daten eintragen
Set objShCor = Sheets("Korrektur") 'hier werden die Fehler korregiert


For Each rng In objShCor.Range("A2:A" & objShCor.Cells(Rows.Count, 1).End(xlUp).Row)
  Set rngF = objShData.Columns(1).Find(what:=rng.Value, lookat:=xlWhole)
  If Not rngF Is Nothing Then
    With objShData.Cells(rngF.Row, rng.Offset(0, 2).Value)
      .Value = rng.Offset(0, 5).Value
      .Interior.ColorIndex = -4142
    End With
    rng.Offset(0, 6).Value = "ja"
  End If
Next

End Sub


Gruß Sepp
Anzeige
super!
29.07.2006 17:38:13
Alexx
Klasse ihr beiden,
vielen dank für eure schnelle Hilfe. Damit rennt dat Progi endlich =)
Juhu..... *g*
Schönes Wochenende noch
Alexx

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige