Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
500to504
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
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Bereich voll --> keine Werte übertragen

VBA - Bereich voll --> keine Werte übertragen
19.10.2004 12:43:09
Katja
Hallo Excelperten,
ich habe folgendes Problem mit der Tabelle:
https://www.herber.de/bbs/user/12299.xls
Wenn in einer Tabelle der Bereich voll ist aber in einer anderen Tabelle noch Platz ist den Wert zu übertragen, wie muss dann der Code geschrieben sein, dass dann grundsätzlich keine Daten aus "MwSt, Sonst, Bank" übertragen werden?
Für eine Hilfe wäre ich sehr dankbar.
Vielen Dank im Voraus.
Gruß,
Katja

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Bereich voll --> keine Werte übertragen
19.10.2004 13:36:52
Alwin
Hallo Katja,
https://www.herber.de/bbs/user/12305.xls
die Lösung funktioniert. Aber interessant wäre für Dich bestimmt jetzt in welchem Bereich voll ist, oder?
Auf alle Fälle werden so die Daten nicht mehr weggeschrieben!
Gruß Alwin
AW: VBA - Bereich voll --> keine Werte übertragen
19.10.2004 15:57:14
Katja
Hallo Alwin,
vielen Dank für die Lösung!!! Klasse, hilft mir sehr weiter. Charmanter wäre es natürlich, das die MsgBox auswirft, welcher Bereich voll ist. Ist das schwierig zu programmieren ?;-)
Viele Grüße
Katja
AW: VBA - Bereich voll --> keine Werte übertragen
Reinhard
Hi Katja,

Option Explicit
Dim bereich1 As Range
Dim bereich2 As Range
Dim bereich3 As Range
Private Sub CommandButton1_Click()
Schreib_Werte
End Sub
Public Sub Schreib_Werte()
Set bereich1 = Worksheets("Tabelle1").Cells(Worksheets("Tabelle1").Range("G10").End(xlUp).Row + 1, 7)
Set bereich2 = Worksheets("Tabelle2").Cells(Worksheets("Tabelle2").Range("G10").End(xlUp).Row + 1, 7)
Set bereich3 = Worksheets("Tabelle3").Cells(Worksheets("Tabelle3").Range("h10").End(xlUp).Row + 1, 8)
If bereich1 <> "" Then Meldung = Meldung & "Bereich 1 ist voll" & Chr(10)
If bereich2 <> "" Then Meldung = Meldung & "Bereich 2 ist voll" & Chr(10)
If bereich3 <> "" Then Meldung = Meldung & "Bereich 3 ist voll" & Chr(10)
If Meldung <> "" Then
MsgBox Meldung
Else
bereich1.Value = txtMwst.Value
bereich2.Value = txtSonst.Value
bereich3.Value = txtBank.Value
End If
End Sub

Gruß
Reinhard
Anzeige
AW: VBA - Bereich voll --> keine Werte übertragen
19.10.2004 23:31:57
Katja
Hallo Reinhard,
leider taucht folgende Fehlermeldung auf:
"Fehler beim kompilieren: Variable nicht definiert."
Leider reichen meine Programmierkünste nicht aus. Könntest Du mir bitte noch mal helfen?
Danke und viele Grüße
Katja
AW: VBA - Bereich voll --> keine Werte übertragen
Reinhard
Hi Katja,
sorry, benutze explicit seltenst :-)m, aber ist schon besser es zu benutzen.
Option Explicit
Dim bereich1 As Range
Dim bereich2 As Range
Dim bereich3 As Range

Private Sub CommandButton1_Click()
Schreib_Werte
End Sub

Public Sub Schreib_Werte()
Dim Meldung as String
Set bereich1 = Worksheets("Tabelle1").Cells(Worksheets("Tabelle1").Range("G10").End(xlUp).Row + 1, 7)
Set bereich2 = Worksheets("Tabelle2").Cells(Worksheets("Tabelle2").Range("G10").End(xlUp).Row + 1, 7)
Set bereich3 = Worksheets("Tabelle3").Cells(Worksheets("Tabelle3").Range("h10").End(xlUp).Row + 1, 8)
If bereich1 "" Then Meldung = Meldung & "Bereich 1 ist voll" & Chr(10)
If bereich2 "" Then Meldung = Meldung & "Bereich 2 ist voll" & Chr(10)
If bereich3 "" Then Meldung = Meldung & "Bereich 3 ist voll" & Chr(10)
If Meldung "" Then
MsgBox Meldung
Else
bereich1.Value = txtMwst.Value
bereich2.Value = txtSonst.Value
bereich3.Value = txtBank.Value
End If
End Sub
Anzeige

303 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
In mehrspaltiger ListBox Einträge in Spalte zählen
Josef

Hallo!
Mit "Label140.Caption = ListBox9.ListCount" kann ich die eingetragenen Zeilen in einer Listbox zählen und in einem Label eintragen lassen.
Ist es möglich, in einer merhspaltigen ListBox Einträge in einer Spalte z.B. Spalte 8 zu zählen.?
Wenn ja, wie würde hier bitte eine VBA...
26.08.2008 12:10:10
Thread-ID: 1004750
4 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Such in Spalte Ergebnis in listbox
Markus

Hallo zusammen,
hab wieder mal ein Problem.
Hab ne Userform mit mehreren Textboxen und einer Listbox
In Textbox1 steht mein Suchtext das makro sucht nun im angegebenen Arbeitsblatt nach dem Text und
schreibt mir alle Daten aus der Gefundenen Zeile in Textboxen.
Hab nun fest...
14.10.2008 11:24:35
Thread-ID: 1016271
3 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
3
4
3
4
4
3
3
8
4
2
4
4
3
2
5
3
2
8
13
10
4
5
4
2
3