Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wie war das... VBA wenn dann ?

Forumthread: wie war das... VBA wenn dann ?

wie war das... VBA wenn dann ?
amintire
Hallo alle zusammen,
würde gerne in einem Label eine Auskunft geben wenn die UserForm geöffnet wird.
Also Daten stehen in A:B
'Wenn in der Spalte B größer als 1 vorhanden ist, dann soll die Zelle vor der Zahl mit angegeben werden.
=If B > 1 then
=?
oder so ähnlich ?
Bin noch ziemlicher Anfänger.
Lieben Gruß
Amina
Anzeige
AW: wie war das... VBA wenn dann ?
25.02.2011 11:37:33
Hajo_Zi
Hallo amina 

If Range("B1")>1 Then Userform1.label1.caption=Range("A1")


AW: wie war das... VBA wenn dann ?
25.02.2011 11:37:48
Beverly
Hi Amina,
kann der Wert mehrfach vorkommen oder nur in einer einzigen Zelle?

Anzeige
AW: wie war das... VBA wenn dann ?
25.02.2011 11:47:25
amintire
Hallo Karin,
der Wert kann mehrfach vorkommen.
Sollte dann bei Label untereinander stehen.
Lieben Gruß
Amina
AW: wie war das... VBA wenn dann ?
25.02.2011 12:54:59
Beverly
Hi Amina, 
Private Sub UserForm_Activate()
Dim lngZeile As Long
Dim strAnzeige As String
For lngZeile = 1 To 13
If Cells(lngZeile, 2) > 1 Then _
strAnzeige = strAnzeige & vbLf & Cells(lngZeile, 1).Address & _
"  " & Cells(lngZeile, 2)
Next lngZeile
Label1 = strAnzeige
End Sub


Anzeige
AW: Funktioniert nicht ;(
26.02.2011 14:08:51
amintire
Hallo Karin,
der Code funktioniert leider nicht. Der gibt mir nur die erste Zeile als Ergebnis.
Der Code hier von Hajo würde zwar funktionieren, 
Private Sub Label1_Click()
If Range("B2") > 1 Then UserForm1.Label1.Caption = Range("A2")
End Sub

aber hier bekomme ich erst ein Ergebnis wenn ich auf Label klicke und auch nur das was in B2 und A2 drin steht.
Lieben Gruß
Amina
Anzeige
AW: Funktioniert nicht ;(
26.02.2011 15:52:46
amintire
Hoffe auf Hilfe...
Lieben Gruß
Amina
AW: Funktioniert nicht ;(
27.02.2011 15:28:59
Beverly
Hi Anima,
der Code funktioniert schon korrekt, denn es wird über alle Zeilen von 1 bis 13 gelaufen, dabei geprüft ob in Spalte B ein Wert größer 1 steht und wenn ja, dann wird die Zelladresse aus Spalte A sowie der Wert aus Spalte B auf die Variable zu den bereits vorhandenen Werten dazugeschrieben. Am Ende wird der Inhalt der Variablen in das Label geschrieben. Wenn bei dir nur der 1. Wert angezeigt wird, dann hast du offensichtlich vergessen, die Eigenschat "AutoSize" des Labels auf True zu setzen.

Anzeige
AW: Funktioniert nicht ;(
27.02.2011 15:43:27
amintire
Hallo Karin,
bekomme jetzt das Ergebnis untereinander.
Aber anstatt den Inhalt von dem was in Spalte A steht, bringt er mir
$A$1 9
$A$2 9
$A$3 8 usw.
Die Zahlen stimmen, aber anstannt $A$1 sollte der Inhalt erscheinen.
Lieben Gruß
und ein schönes Wochenende
Amina
Anzeige
AW: Funktioniert nicht ;(
27.02.2011 16:04:21
Beverly
Hi Amina,
du hattest geschrieben
'Wenn in der Spalte B größer als 1 vorhanden ist, dann soll die Zelle vor der Zahl mit angegeben werden.
daraus habe ich geschlussfolgert, dass du die Zelladresse ausgeben willst. Da es aber der Zellinhalt sein soll, musst du nur .Address weglassen.

Anzeige
AW: Und das Label ...
27.02.2011 16:30:40
Gerd
Hallo
... so groß macht, dass mehrere Zeilen angezeigt werden können. :-)
Gruß Gerd
AW: Und das Label ...
27.02.2011 17:50:37
Beverly
Hi Gerd,
das wurde bereits im vorhergehenden Beitrag geklärt - AutoSize war dort das Zauberwort.

Anzeige
AW: Und das Label ...
27.02.2011 18:14:24
Gerd
Hi Karin,
ich kann nicht alles lesen.
Da scheint aber etwas in Vergessenheit geraten zu sein. Sonst hätte Amina ... :-)
Gruß Gerd
AW: Und das Label ...
27.02.2011 19:11:20
amintire
Hallo Karin,
vielen dank für deine Hilfe. Funktioniert jetzt.
@Gerd: sonst hätte ich was ? ;)
Lieben Gruß
Amina
AW: Und das Label ...
27.02.2011 19:20:17
Beverly
Hi Gerd,
Zitat von Amina:
bekomme jetzt das Ergebnis untereinander.
So lang sind die Beiträge ja nun wirklich nicht, als dass man viel Zeit zum Lesen investieren müsste... Und was, bitte schön, ist in Vergessenheit geraten?

Anzeige
AW: Und das Label ...
27.02.2011 19:33:04
Gerd
Hallo
... sonst hätte Amina bei deinem Code gleich einen mehrzeiligen Eintrag im Label gesehen,
wenn Autosize gesetzt war, Karin.
Und dass ich nicht immer alle vorhergehenden Beiträge eines Fragestellers lese, bevor ich mich gelegentlich beteilige, hat nichts mit deren Länge zu tun.
Lasst 's gut sein. Der Erfolg ist doch eingetreten :-)
Grüße Gerd
Anzeige
;

Forumthreads zu verwandten Themen

VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
wenn(isfehler=wahr;dann;sonst in vba
Joachim

Hallo,
ich wollte folgende Formel in vba schreiben:
=WENN(ISTFEHLER(VERGLEICH(B1;Wasserdaten!A:A;0))=WAHR;VERGLEICH(B1;Wasserdaten!A:A;1);VERGLEICH(B1; Wasserdaten!A:A;0))
Mein Code dazu geht auf Fehler:
zeile_ws = WorksheetFunction.if(IsError _
(Match(fdh_nr, Worksheets(...
30.04.2010 13:31:27
Thread-ID: 1154723
4 Beiträge
VBA WennDann + Variable
Pascal

Guten Abend zusammen,
die letzte Stunde habe ich mir am folgendem Problem die Zähne ausgebissen :(
Ich versuche in einen relativen Zellbereich eine Wenn-Dann Abfrage reinzubauen.
Folgende Formel funktioniert auch:
Range(Cells(38, 12 + j), Cells(964, 12 + j)).FormulaR1C1 = "=IF(R...
13.07.2010 20:59:05
Thread-ID: 1166947
7 Beiträge
VBA Formel wenn Uhrzeit dann
Gonzer

Hallo zusammen,
habe folgendes Problem - ich will per VBA eine Formel in eine Zelle schreiben die überprüft ob ein Zellwert im Datumsformat vorliegt. Liegt dieses vor soll der Zellwert übernommen werden, wenn nicht soll die Zahl als Uhrzeit umgewandelt werden.
Hier meine Code Zeile:
...
16.09.2010 17:07:58
Thread-ID: 1178158
5 Beiträge
VBA Wenn dann
WalterK

Hallo,
ich komme nicht drauf, was ich bei der Definition von ErsteZei angeben muss! ErsteZei soll, wenn E3 Leer ist die Zahl 4 sein, ansonsten die Zahl 3!
So jedenfalls funktionert es nicht:
Sub Test() Dim ErsteZei As Integer ErsteZei = If Range("$E$3") = "" Then 4 Else 3 End If Msg...
11.07.2012 14:21:31
Thread-ID: 1270637
3 Beiträge
VBA Wenn Zelle Leer dann
Philipp

Hallo,
ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
Die Tabelle sieht in etwa so aus
A B C
1 XYZ ABC
2 Bla 23%
3 Blub 2% 7%
4 ...
Das Makro soll nun schauen ob in der Spalte A...
12.07.2012 16:29:13
Thread-ID: 1270809
3 Beiträge
VBA2010 wenn dateiname dann makro
Rene

Hallo Leute,
ich habe einen Pfad, wo nur jene Dateien geöffnet werden sollen, die mit "BK" beginnen. Dann soll für all diese geöffneten "BK"-Dateien ein Makro durchlaufen, die BK-Dateien sind alle gleich aufgebaut. Nachdem das Makro durchgelaufen ist, soll die Datei unter dem Format .csv ge...
17.01.2013 09:46:25
Thread-ID: 1294735
3 Beiträge
Anzeige
VBA: Wenn Zellfarbe Dann Zellinhalt übertragen
Sascha

Hallo liebe Experten,
Im Tabellenblatt "Quelle" werden alle Daten erfasst. Diese Daten sind Datumsabhängig. Das Datum wird in Zelle Z1 eingegeben und wird automatisch in die Zeile 5 übernommen.
Das Tabellenblatt "Ziel" ist pro Woche unterteilt.
Sobald ich im Blatt "Quelle" in den Ze...
13.03.2013 19:06:08
Thread-ID: 1303799
5 Beiträge
VBA Wenn sich ein Zellwert ändert, dann
Peter

Hallo an Alle,
hier mein Hilferuf:
Wenn "B1" sich ändert, dann sollen die Zellen A6:G6 mit einer Null gefüllt werden.
Seit Tagen experimentiere ich mit dem Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Das Ausfüllen mir der Null habe ich mit dem Macrore...
19.05.2013 11:14:42
Thread-ID: 1313868
2 Beiträge
VBA Wenn nicht in Zeile steht, dann Zeile einfügen
Leo

Hi,
ich hoffe ihr könnt mir hier ein wenig helfen.
Ich habe folgendes Problem:
Ich habe eine Tabelle mit Unterschiedlichen Namen in Spalte A
In einem zweiten Excel-Dokument habe ich ebenfalls eine Liste mit unterschiedlichen Namen, von denen sich einige mit denen aus A doppeln a...
05.05.2014 18:37:40
Thread-ID: 1359839
2 Beiträge
Suche, finde und dann aber nur wenn... VBA
Thorben

Moinsen alle zusammmen,
könnt ihr mir bitte helfen den Code hier anzupassen, ich blicke nicht wo ich anpacken muss:
Es soll nur grün eingefärbt werden wenn für Set rSuche = rFinde.Find(what:=.Cells(I, 1), LookAt:=xlWhole) zusätzlich Offset(0,1) = "" Wahr ist.
QuellCode ist ausm WWW,...
20.05.2014 17:00:26
Thread-ID: 1362525
11 Beiträge
VBA wenn ausgelöst dann Zeichen in richtiger Zeile
Ronny
Hallo,
erstmal vielen Dank, dass es dieses Forum gibt. Es hat mir schon viel geholfen! Super macht Ihr das. Leider habe ich bei folgendem Problem keine Lösung gefunden:
Ich habe eine Excel Tabelle mit einem Tabellenblatt "Artikel" und einem Blatt "Kaufvertrag"
Im Blatt Artikel habe ich...
27.05.2014 14:36:32
Thread-ID: 1363669
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige