Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ohne Verweise arbeiten

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
Anzeige
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

Anzeige
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

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige