Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1396to1400
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
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Kopieren wenn Bedingung erfüllt ist.

VBA Kopieren wenn Bedingung erfüllt ist.
17.12.2014 08:42:45
Kai
Hallo zusammen,
ich möchte in meiner Datenbank auf dem ersten Tabellenblatt eine Art "Eingabemaske" erstellen. Dort habe ich eine Zeile wo der Anwender per DropDown Menü bei verschiedenen Kriterien Werte eintragen kann. Um den VBA Code vielleicht ein bisschen zu vereinfachen, möchte ich, sobald der Anwender alle notwendigen Werte eingetragen hat, dem Eintrag per Wenn-Formel eine Zahl zuweisen. Abhängig von der Zahl soll der VBA Code nun die Werte aus dem "Eingabeformular" auf das entsprechende Tabellenblatt in die nächst freie Zeile kopieren.
Bisher habe ich auf jedem Tabellenblatt eine "Eingabezeile", die dann per VBA Code die Werte nach betätigen eines "Übernehmen" CommandButtons unten in die nächstfreie Zeile kopiert.
Sub Zeile_kopieren()
'Bereich kopieren
Sheets("Tabellenblatt1").Range("A4:Q4").Copy
'einfügen in erste freie Zeile in ausgabe
Sheets("Tabellenblatt1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False
End Sub

Ich hoffe ich war verständlich genug.
Vielen Dank für Eure Hilfe.
Gruß Kai

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Kopieren wenn Bedingung erfüllt ist.
17.12.2014 16:27:44
fcs
Hallo Kai,
hier ein Makro, das du noch anpassen musst.
Alternativ könntest du im Eingabeblatt auch den Namen des Ziel-Tabellenblattes in einer Zelle per Formel ermitteln und mit der Variante arbeiten.
Gruß
Franz 
Sub Zeile_kopieren()
'Bereich kopieren
Dim strZiel As String
Select Case Worksheets("Eingabe").Range("C2").Value 'Zelle mit Zahlenwerten ggf. anpassen
'Vergleichswerte und Tabellennamen in den folgenden Zeilen anpassen!
Case 1 To 10
strZiel = "Tabelle A"
Case Is  "" Then
Worksheets("Eingabe").Range("A4:Q4").Copy
'einfügen in erste freie Zeile in ausgabe
With Worksheets(strZiel)
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End With
'Kopiermodus beenden
Application.CutCopyMode = False
Else
MsgBox "Bitte Eingabewerte prüfen, Daten konnten nicht kopiert werden!"
End If
End Sub
'Alternative - Name der Ziel-Tabelle wird in Zelle C2 per Formel ermittelt
Sub Zeile_kopieren_Variante()
'Bereich kopieren
Dim wksZiel As Worksheet
On Error Resume Next
Set wksZiel = Worksheets(Worksheets("Eingabe").Range("C2").Text) 'Zelle mit Name der  _
Zieltabelle ggf. anpassen
If Err.Number  0 Then
MsgBox "Bitte Eingabewerte prüfen, Daten konnten nicht kopiert werden!"
Err.Clear
Else
Worksheets("Eingabe").Range("A4:Q4").Copy
'einfügen in erste freie Zeile in ausgabe
With wksZiel
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End With
'Kopiermodus beenden
Application.CutCopyMode = False
End If
End Sub

Anzeige

355 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

Links zu Excel-Dialogen

CommandButton

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