Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1476to1480
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
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Bedingung erfüllt, dann Felder einfügen

Wenn Bedingung erfüllt, dann Felder einfügen
20.02.2016 14:32:27
Shawn
Hallo,
ich arbeite momentan an einer Tabelle mit mehreren Blättern. Ich hätte es gerne so dass wenn ich auf dem ersten Blatt in Zelle A2 über ein Drop-Down Menü ein Produkt auswähle, dann sollen die Felder aus einem anderen Blatt eingefügt werden. Insgesamt habe ich etwa 10 Produkte mit individuellen Berechnungen und deshalb auch mit verschieden vielen Feldern die ich einfügen lassen muss.
Also zusammengefasst: WENN=(A2="Gehäuse"; Felder A1:D5 von Tabellenblatt2 einfügen in Tabellenblatt1 A10:E20)+WENN(A2="Deckel"; Felder A1:F6 von Tabellenblatt3 einfügen in Tabellenblatt1 A10:E20) usw....
Also ich habe einen offenen Bereich in Blatt1 den ich mit den individuellen Berechnungsfeldern füllen will, wenn ich das Produkt oben anwähle.
Leider bin ich in Sachen Makros ei totaler Anfänger und wäre deshalb um eine möglichst einfache Erklärung dankbar und hoffe natürlich das ihr mir helfen könnt.

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn Bedingung erfüllt, dann Felder einfügen
20.02.2016 14:58:30
Werner
Hallo Shawn,
Versuch mal
Code gehört ins Change Ereignis des Tabellenblattes auf dem das Dropdown ist.
Cancel = True
If Not Intersect(Target, Range("A2")) Is Nothing Then
Select Case Target.Value
Case "Gehäuse"
Sheets("Tabelle2").Range("A1:D5").Copy Sheets("Tabelle1").Range("A10")
Application.CutCopyMode = False
Case "Deckel"
Sheets("Tabelle2").Range("A1:F6").Copy
Sheets("Tabelle1"). Range("A10")
Application.CutCopyMode = False
Case Else
'nichts machen
End Select
Gruß Werner

AW: Wenn Bedingung erfüllt, dann Felder einfügen
20.02.2016 15:29:31
Gerd
Hallo,
auch ungetestet.
'Ins Modul von Tabelle1 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngQuelle As Range
If Target.Address(0, 0, xlA1) = "A2" Then
Select Case Target.Value
Case "Gehäuse":    Set rngQuelle = Sheets("Tabelle2").Range("A1:D5")
Case "Deckel": Set rngQuelle = Sheets("Tabelle3").Range("A1:F6")
'Case "Boden": Set rngQuelle = Sheets("Tabelle4").Range("A1:G7") 'z.B. nächster Fall
End Select
If Not rngQuelle Is Nothing Then
rngQuelle.Copy Sheets("Tabelle1").Range("A10")
Set rngQuelle = Nothing
End If
End If
End Sub
Gruß Gerd
Anzeige

359 Forumthreads zu ähnlichen Themen

VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
wenn bedingung erfüllt eine bestimmte zelle beschr
Markus

Hallo zusammen,
ich würde gerne wenn eine bestimmte Bedingung erfüllt ist, einen Wert in eine Zelle schreiben lassen. Das bekomm ich auch auch mit der Wenn-Funktion hin, ABER:
wie bekomme ich es hin, dass wenn die Bedingung nicht erfüllt wird, der wert in eine andere Zelle geschrieben...
29.06.2009 20:53:51
Thread-ID: 1085215
6 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Anzeige
Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Zellen löschen wenn Bedingung erfüllt ist
Kathi

Hallo zusammen,
zunächst einmal vielen Dank für die vielen tollen Beiträge, die mir schon sehr weitergeholfen haben. Leider stehe ich derzeit vor folgendem Problem (versuche, mich kurz zu fassen):
- habe Fragebogen erstellt, der in Excel eingegeben wird (Optionsfelder)
- insgesamt g...
02.06.2010 10:46:08
Thread-ID: 1159977
3 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:20:47
Thread-ID: 1165045
2 Beiträge
Wert aus Vorzelle übernehmen
jo_cindy

Hi Leute,
hab da eine Frage zu einem Befehl. Durch diesen wird doch in Spalte A immer der Wert aus der Vorzelle, wenn ein leere Feld vorhanden ist. Range(cells(1,1),.... dabei steht doch die erste 1 für Spalte A, aber wofür steht die zweite 1 bei Cells(1,1)?
Range(Cells(1, 1), Cells(Ro...
02.07.2010 08:09:45
Thread-ID: 1165046
3 Beiträge
Nur Werte übernehmen
gisela

Hallo,
wie kann ich folgende Anweisung ändern, damit nur die Werte übertragen werden?
Sub autoautoC() Application.ScreenUpdating = False Dim strBreich As String Dim rngZelle As Range Sheets("Mai_C").Select strBreich = "$A$1:" & ActiveSheet.Cells(Rows.Count, "A"). _ End(xlUp).Address...
10.09.2010 09:54:44
Thread-ID: 1176788
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
5
12
4
3
2
1
2
9
2
3
1
10
2
3
6
2
5
9
9
8
2
4
9