Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
460to464
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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Von einem Tabellenblatt unter Bedingung ins andere

Von einem Tabellenblatt unter Bedingung ins andere
30.07.2004 11:08:15
Stephi
Hallo zusammen,
ich habe ein gösseres Excel-VBA-Problem und hoffe, dass mir jemand weiterhelfen kann, obwohl ich mir auch nicht so sicher bin, ob das was ich da machen möchte auch wirklich möglich ist…
Aber ich schildere einfach mal das Problem:
Ich habe mehrere Tabellenblätter, die alle gleich aufgebaut sind. Da die Tabellenblätter verschiedene Dimensionen darstellen möchte ich von einem Tabellenblatt eine ebene tiefer in ein anderes Tabellenblatt springen können.
Beispielweise: ein Produkt z.B. in Sheet „A“ besteht aus 3 Teilprodukten, die in Sheet „B“ aufgelistet sind. Erscheint mir die Lieferzeit für das Produkt in Sheet „A“ zu lange, möchte ich per Doppelklick in das Sheet „B“ in das entsprechende Feld (gleiche Kennzahl, also gleiche Zeile) gelangen, wo das Produkt steht, dass die längste Lieferzeit hat. Eine Schwierigkeit besteht noch darin, dass jeweils Spalte Ist, Spalte SOLL und Spalte ABWEICHUNG pro Produkt nebeneinander stehen… also:
Innerhalb eines eingeschränkten Bereichs (z.B. im Sheet „A“, Spalten B, E, H, K, N..., Z; also immer jede 3.Spalte angefangen bei Spalte B bis Spalte Z. Und die Zeilen 8 bis 12 und 14 bis 20 und 22 bis 25.) soll bei Doppelklick auf ein Feld innert diesem Bereichs (z.B. H8) in einem anderen Tabellenblatt (z.B. Sheet „B“) die Zeile 8 in dem eingeschränkten Bereich (wichtig: nur jede 3.Spalte in der Zeile) nach dem grössten Wert durchsucht werden und in das Feld (im Sheet „B“) springen, indem der grösste Zeilenwert ist.
Ich wäre wirklich happy, wenn das Problem lösbar wäre und mir jemand von euch helfen könnte .
Ich danke schon mal im Voraus für jeden Tip und Quellcode.
Salou aus der Schweiz und danke vielmals.
Stephi

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

Betreff
Datum
Anwender
Anzeige
AW: Von einem Tabellenblatt unter Bedingung ins andere
01.08.2004 17:47:40
Christoph
Hallo Stephi,
wenn ich deine Schilderung richtig verstanden habe, dann so:
Der Code muss in das VBA-Editor-Fenster der Tabelle1.
Ausserdem musst du evt. den Tabellennamen "Tabelle2" anpassen.
Gruß
Chistoph

Option Explicit
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Dim byRow As Byte, i As Byte, j As Byte
Dim DblStart As Double
Set rng = Range( _
"B8:B12,B14:B20,B22:B25,E8:E12,E14:E20,E22:E25,H8:H12," & _
"H14:H20,H22:H25,K8:K12,K14:K20,K22:K25,N8:N12,N14:N20," & _
"N22:N25,Q8:Q12,Q14:Q20,Q22:Q25,T8:T12,T14:T20,T22:T25," & _
"W8:W12,W14:W20,W22:W25,Z8:Z12,Z14:Z20,Z22:Z25")
If Intersect(Target, rng) Is Nothing Then Exit Sub
byRow = Target.Row
Cancel = True
With Sheets("Tabelle2")
DblStart = .Cells(byRow, 2).Value
j = 2
For i = 2 To 27 Step 3
If .Cells(byRow, i).Value > DblStart Then
DblStart = .Cells(byRow, i).Value
j = i
End If
Next
.Activate
.Cells(byRow, j).Select
End With
End Sub

Anzeige
AW: Von einem Tabellenblatt unter Bedingung ins andere
02.08.2004 15:31:17
Stephi
hallo christoph,
wow. genau so sollte das funktionieren. vielen dank!!!
das ist echt super. funktioniert perfekt.
danke vielmals.
ciao stephi

49 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige