ohne Verweise arbeiten

Forumthread: ohne Verweise arbeiten

24.07.2003 10:48:50

Daniel

Hallo Leute
Hab da eine Frage, schon Nächtelange versuchte ich dieses Problem zu lösen.
Ich hoffe, dass mir jemand helfen kann.
Problem:
Ich möchte das es die Mitarbieter mit einem Vermerk RES1 in einer anderen Tabelle, sepparat aufführt.
Beispiel:
B________RES1
K________RES1
Ich habe es mit den Formeln Verweis, SVerweis versucht, da ich aber die Quelldatenbank nicht sortieren darf kommen diese 2 Befehle nicht in Frage.
Quelldatenbank
Excel-Tabellen Blatt
Spalte_A_______Spalte_B
Mitarbeiter____Leistung

A______________2
B______________RES1
BA_____________5
R______________6
K______________RES1
F______________4
HH_____________4
C______________1
RT1____________6
Z______________3
FF_____________4
GAS____________6
BER____________6
Danke 1000 mal Daniel

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ohne Verweise arbeiten

24.07.2003 11:16:46

Mareike
An Mareike

24.07.2003 11:26:52

Nepumuk
AW: An Mareike

24.07.2003 11:30:37

Mareike
überarbeiteter Code

24.07.2003 12:00:52

Mareike

AW: ohne Verweise arbeiten

24.07.2003 11:16:46

Mareike

Hallo Daniel,
Probiere mal den Code aus:


Private Sub CommandButton1_Click()
Dim y1 As Long, y2 As Long
Dim x As Byte
Dim Tab1 As Worksheet, Tab2 As Worksheet
Dim rowmax1 As Long
Set Tab1 = Worksheets("Tabelle1")
Set Tab2 = Worksheets("Tabelle2")
rowmax1 = Zeilen_zaehlen(Tab1)
y2 = 2
For y1 = 2 To rowmax1
If Tab1.Cells(y1, 2).Value = "RES1" Then
For x = 1 To 2  'anpassen
Tab2.Cells(y2, x) = Tab1.Cells(y1, x)
Next x
y2 = y2 + 1
End If
Next y1
End Sub

' Funktion um zählen der Zeilen
Public Function Zeilen_zaehlen(ws As Worksheet) As Integer
' Variablen
Dim zaehler As Integer ' zählt die Zeilen
Dim Y As Integer ' Zeilenindex
' Zeilenindex = 3
Y = 3
' Zähler = 1
zaehler = 1
' Solange Zelle gefüllt
Do While ws.Cells(Y, 1) <> ""
' Zeilenindex um 1 erhöhen
Y = Y + 1
' Zähler um 1 erhöhen
zaehler = zaehler + 1
Loop
' Zähler um 1 erhöhen
zaehler = zaehler + 1
' Rückgabewert = zaehler
Zeilen_zaehlen = zaehler
End Function

Gruß
Mareike

An Mareike

24.07.2003 11:26:52

Nepumuk

Hallo Mareike,
zur Ermittlung der letzten beschriebenen Zeile in einer Spalte kannst du folgende Anweisung benutzen:
letzte = Range("A65536").End(xlUp).Row
oder
letzte = Cells(65536, 1).End(xlUp).Row
Diese Anweisungen simulieren eigentlich nichts anderes, als das drücken der Pfeiltasten bei gedrückter Strg-Taste.
Gruß
Nepumuk

AW: An Mareike

24.07.2003 11:30:37

Mareike

Hallo Nepumuk,
Danke für den Tip.
Ich werde ihn in Zukunft einbauen.
Gruß
Mareike

überarbeiteter Code

24.07.2003 12:00:52

Mareike

Hallo Daniel,
hier nochmal die kürzere Fassung ohne Funktion Zeilen_zaehlen.
Funktioniert aber genauso gut.


Private Sub CommandButton1_Click()
Dim y1 As Long, y2 As Long
Dim x As Byte
Dim Tab1 As Worksheet, Tab2 As Worksheet
Dim rowmax1 As Long
Set Tab1 = Worksheets("Tabelle1")
Set Tab2 = Worksheets("Tabelle2")
rowmax1 = Range("A65536").End(xlUp).Row
y2 = 2
For y1 = 2 To rowmax1
If Tab1.Cells(y1, 2).Value = "RES1" Then
For x = 1 To 2  'anpassen
Tab2.Cells(y2, x) = Tab1.Cells(y1, x)
Next x
y2 = y2 + 1
End If
Next y1
End Sub

Gruß
Mareike

Beliebteste Forumthreads (12 Monate)

Forumthread: ohne Verweise arbeiten

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread