Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
960to964
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
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen formatieren

Zellen formatieren
12.03.2008 14:07:00
Marcel
Hallo Ihr Könner!
Ich habe folgende Ausgangssituation:
Tabelle1
A1-Div. / B1-Kd.-Nr. / C1 bis G1-Div. / H1-Menge
Tabelle2
A1-Kd.-Nr. / B1 bis D1-Div. / E1-Menge
Ich möchte den in "Tabelle2" unter E1-Menge angegebenen Wert nach "Tabelle1" H1-Menge exportieren. Allerdings muss der Wert bezogen auf die Kd-Nr. in "Tabelle2" A1-Kd.-Nr. mit der in "Tabelle1" B1-Kd.-Nr. übereinstimmen. Wenn die in "Tabelle1" B1-Kd-Nr. vorgegebene Nummer in "Tabelle2" A1-Kd.-Nr. nicht vorkommt, soll in "Tabelle1" H1-Menge eine "0-Null" erscheinen. Natürlich sind unter "Tabelle1" B1-Kd.-Nr. sowie unter "Tabelle2" A1-Kd.-Nr. mehrere Positionen zu finden.
Ich habe wirklich keine Ahnung welche Formel ich anwenden kann.
Schon mal vielen Dank für Eure Hilfe!
Marcel

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen formatieren
12.03.2008 14:27:00
Tino
Hallo,
müsste funktionieren, nur mit der 0 weis ich nicht wo diese hin soll.

Option Explicit
Sub test()
Dim Tab1 As Worksheet, Tab2 As Worksheet
Dim BerAdress As String
Dim Bereich As Range, FunZ As Range
Application.ScreenUpdating = False
Set Tab1 = Sheets(1)
Set Tab2 = Sheets(2)
BerAdress = "A2:" & Tab2.Range("A65500").End(xlUp).Address
For Each Bereich In Tab2.Range(BerAdress)
Set FunZ = Tab1.Range("B:B").Find(Bereich, LookIn:=xlValues, LookAt:=xlWhole)
If Not FunZ Is Nothing Then
FunZ.Offset(0, 6) = Bereich.Offset(0, 4)
Else
Bereich.Offset(0, 5) = 0 'Eventuell anpassen
End If
Set FunZ = Nothing
Next Bereich
Application.ScreenUpdating = True
End Sub


Gruß
Tino

Anzeige
AW: Zellen formatieren
12.03.2008 14:41:10
Marcel
Vielen Dank Tino!
Tut mir Leid, aber meine Kenntnisse sind wirklich sehr begrenzt!!!
Wo kann ich diese Formel eingeben? Bitte genaue Beschreibung.
Vielen Dank schon mal!
Marcel

AW: Zellen formatieren
12.03.2008 15:36:00
Marcel
Hallo Tino,
vielen Dank für deine Tipps! Ich habe deinen Text, wie in dem Video beschrieben, eingefügt. Leider kommt bei mir kein Ergebnis.
Muss ich ausser den Einstellungen noch weitere Schritte ausführen?
Marcel

Anzeige
AW: Zellen formatieren
12.03.2008 15:57:00
Tino
Hallo,
eventuell müssen die Tabellennamen angepasst werden.
Set Tab1 = Sheets(1) 'ist die erste Tabelle
Set Tab2 = Sheets(2) 'ist die zweite Tabelle
Schreibe in die Klammern die Namen der Tabellen mit "".
Bsp:
Set Tab1 = Sheets("Tabelle1")
Set Tab2 = Sheets("Tabelle2")
sonst stell deine Tabelle hier rein.
Gruß
Tino

AW: Zellen formatieren
14.03.2008 08:50:00
Marcel
Hallo Tino,
alles Super! Vielen Dank für deine Hilfe!!!!
Gruß
Marcel

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige