Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If Cell in makro einbauen

Forumthread: If Cell in makro einbauen

If Cell in makro einbauen
04.02.2004 14:48:31
Markus H.
Moin Leute,
hab mri mit mühe und not dieses Makro erstellt:

Private Sub CommandButton2_Click()
With Worksheets("Rechnung")
Zeile = .ListBox1.ListIndex + 3
.ListBox1.Visible = False
.Range("A4") = Worksheets("Kunden").Cells(Zeile, 2)
.Range("A5") = Worksheets("Kunden").Cells(Zeile, 6) & " " & _
Worksheets("Kunden").Cells(Zeile, 7) & " " & _
Worksheets("Kunden").Cells(Zeile, 8) & " " & _
Worksheets("Kunden").Cells(Zeile, 3)
.Range("A6") = Worksheets("Kunden").Cells(Zeile, 9)
.Range("A7") = Worksheets("Kunden").Cells(Zeile, 10) & " " & _
Worksheets("Kunden").Cells(Zeile, 11) & " " & _
Worksheets("Kunden").Cells(Zeile, 4)
End With
Me.ListBox1.Visible = False
Me.CommandButton2.Visible = False
Me.CommandButton3.Visible = False
End Sub

aber kunden!G3 kann leer sein, wenn Kunden!G3 leer ist sollte kein Leerzeichen mit eingefügt werden!
Mein ansatz:

Private Sub CommandButton2_Click()
With Worksheets("Rechnung")
Zeile = .ListBox1.ListIndex + 3
.ListBox1.Visible = False
.Range("A4") = Worksheets("Kunden").Cells(Zeile, 2)
.Range("A5") = Worksheets("Kunden").Cells(Zeile, 6) & " " & _
IF Worksheets("Kunden").Cells(Zeile, 7) = "" then
Else: Worksheets("Kunden").Cells(Zeile, 7) & " " & _
End If
Worksheets("Kunden").Cells(Zeile, 8) & " " & _
Worksheets("Kunden").Cells(Zeile, 3)
.Range("A6") = Worksheets("Kunden").Cells(Zeile, 9)
.Range("A7") = Worksheets("Kunden").Cells(Zeile, 10) & " " & _
Worksheets("Kunden").Cells(Zeile, 11) & " " & _
Worksheets("Kunden").Cells(Zeile, 4)
End With
Me.ListBox1.Visible = False
Me.CommandButton2.Visible = False
Me.CommandButton3.Visible = False
End Sub

so gehts ja aber ncht.. wer kann helfen?
MfG
Markus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: If Cell in makro einbauen
04.02.2004 14:53:21
(.)
Hallo,
wie wärs mit
IF Worksheets("Kunden").Cells(Zeile, 7) = "" then exit sub
AW: If Cell in makro einbauen
04.02.2004 15:09:58
Markus H.
Nein so gehts nicht!
vielleicht erklär ich mal kurz was das Makro macht. Ich habe eine Kundentabelle in der in einem riesigem Datensatz Daten stehen. Jetzt gibt es eine Spalte (G) in der ein möglicher Titel steht (Dr. Prof. usw.)
In dem eigentlichen Tabellenblatt Rechnung habe ich ein Anschriftenfeld in der die Namen eingetragen werden! Jetzt sieht es aber blöd aus, wenn derjenige keinen Titel hat, da ja dann zwei leerstellen sind! Möchte also Prüfen ob ein Dr. Titel vorhanden ist, wenn ja soll eine Leerstelle eingefügt werden, und sonst eben nicht!
MfG
Markus
Anzeige
AW: If Cell in makro einbauen
04.02.2004 15:55:42
Reinhard
Hi Markus,
probiers mal wie nachstehend.
Gruß
Reinhard


Private Sub CommandButton2_Click()
With Worksheets("Rechnung")
Zeile = .ListBox1.ListIndex + 3
.ListBox1.Visible = False
.Range("A4") = Worksheets("Kunden").Cells(Zeile, 2)
.Range("A5") = Worksheets("Kunden").Cells(Zeile, 6)
If Worksheets("Kunden").Cells(Zeile, 7)<>"" then
.Range("A5") =.Range("A5") & " " & Worksheets("Kunden").Cells(Zeile, 7) & " "
End If
.Range("A5") =.Range("A5") & Worksheets("Kunden").Cells(Zeile, 8) & " " & _
Worksheets("Kunden").Cells(Zeile, 3)
.Range("A6") = Worksheets("Kunden").Cells(Zeile, 9)
.Range("A7") = Worksheets("Kunden").Cells(Zeile, 10) & " " & _
Worksheets("Kunden").Cells(Zeile, 11) & " " & _
Worksheets("Kunden").Cells(Zeile, 4)
End With
Me.ListBox1.Visible = False
Me.CommandButton2.Visible = False
Me.CommandButton3.Visible = False
End Sub

Anzeige
hast mir den richtigen weg gezeigt!
04.02.2004 16:15:20
Markus H.
hab noch eine zeile ergänzt!

Private Sub CommandButton2_Click()
With Worksheets("Rechnung")
Zeile = .ListBox1.ListIndex + 3
.ListBox1.Visible = False
.Range("A4") = Worksheets("Kunden").Cells(Zeile, 2)
.Range("A5") = Worksheets("Kunden").Cells(Zeile, 6)
If Worksheets("Kunden").Cells(Zeile, 7) <> "" Then
.Range("A5") = .Range("A5") & " " & Worksheets("Kunden").Cells(Zeile, 7) & " "
Else: .Range("A5") = .Range("A5") & " " & Worksheets("Kunden").Cells(Zeile, 7)
End If
.Range("A5") = .Range("A5") & Worksheets("Kunden").Cells(Zeile, 8) & " " & _
Worksheets("Kunden").Cells(Zeile, 3)
.Range("A6") = Worksheets("Kunden").Cells(Zeile, 9)
.Range("A7") = Worksheets("Kunden").Cells(Zeile, 10) & " " & _
Worksheets("Kunden").Cells(Zeile, 11) & " " & _
Worksheets("Kunden").Cells(Zeile, 4)
End With
Me.ListBox1.Visible = False
Me.CommandButton2.Visible = False
Me.CommandButton3.Visible = False
End Sub


so scheints supi zu klappen! dank dir recht herzlich!
MfG
Markus
Anzeige
AW: hast mir den richtigen weg gezeigt!
04.02.2004 16:24:31
Geschlossen m.T.
Hi Markus,
wenn schon würd ich das so schreiben:

Private Sub CommandButton2_Click()
With Worksheets("Rechnung")
Zeile = .ListBox1.ListIndex + 3
.ListBox1.Visible = False
.Range("A4") = Worksheets("Kunden").Cells(Zeile, 2)
.Range("A5") = Worksheets("Kunden").Cells(Zeile, 6) & " "
If Worksheets("Kunden").Cells(Zeile, 7) <> "" Then
.Range("A5") = .Range("A5") & Worksheets("Kunden").Cells(Zeile, 7) & " "
End If
.Range("A5") = .Range("A5") & Worksheets("Kunden").Cells(Zeile, 8) & " " & _
Worksheets("Kunden").Cells(Zeile, 3)
.Range("A6") = Worksheets("Kunden").Cells(Zeile, 9)
.Range("A7") = Worksheets("Kunden").Cells(Zeile, 10) & " " & _
Worksheets("Kunden").Cells(Zeile, 11) & " " & _
Worksheets("Kunden").Cells(Zeile, 4)
End With
Me.ListBox1.Visible = False
Me.CommandButton2.Visible = False
Me.CommandButton3.Visible = False
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Einzigartige Werte in Array identifizieren
Sebastian

Hallo Experten,
ich habe eine Frage, die vermutlich recht leicht zu lösen sein sollte:
Ich habe eine sehr lange Liste, in der in Spalte A Produktnummern stehen, viele kommen auch mehrfach vor. Ich möchte gerne daraus in einem neuen Tabellenblatt eine Liste erstellen, in der jede verschi...
10.08.2008 21:30:00
Thread-ID: 1000688
2 Beiträge
in einem Range navigieren?
pasya

Hallo zusammen,
wie kann man in einem Range navigieren? Z.b. ich habe Zeilen mit dem Autofilter gefiltert und möchte jetzt auf bestimmte Werte bestimmter Spalten zugreifen.
.Cells(row, 1).Value = wkstArtikeln.UsedRange.Columns("$A:$A").SpecialCells(xlCellTypeVisible).Offset(1, 0).Value<...
12.08.2008 09:58:00
Thread-ID: 1001081
3 Beiträge
Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Wert finden und nicht Ziffer
baronf


Habe ein Problem,
in der Spalte C soll nach Zahlen gesucht werden (Variable MZ)
Wenn MZ den Wert 1 bekommt, wird dür MZ ein wahrer Wert ausgegeben, wenn die Zahl auftriit.
Das heisst, dass nach der Ziffer und nicht nach der Zahl gesucht wird!
Wie kann ich die Formel ändern,...
28.08.2008 16:05:00
Thread-ID: 1005503
2 Beiträge
Wert finden und nicht Ziffer
baronf


Habe ein Problem,
in der Spalte C soll nach Zahlen gesucht werden (Variable MZ)
Wenn MZ den Wert 1 bekommt, wird dür MZ ein wahrer Wert ausgegeben, wenn die Zahl auftriit.
Das heisst, dass nach der Ziffer und nicht nach der Zahl gesucht wird!
Wie kann ich die Formel ändern,...
28.08.2008 16:06:00
Thread-ID: 1005504
4 Beiträge
Anzeige
Knifflig - Zeilen einfügen
Frederic

Guten Morgen liebes Forum,
ich hab da ein kleines kniffeliges Problem, hoffe, ihr könnt mir evtl. weiterhelfen:
Ich exportiere Daten per Makro in eine neue leere Mappe (Mappe1.xls).
Vorab: Die Spaltenzuordnung ist immer identisch!
Jetzt möchte ich statt manuell wie bisher, die R...
29.08.2008 07:29:19
Thread-ID: 1005628
10 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Datum in einem Range Formatieren
TomTom

Hi,
ich möchte per Makro einen Range auf dem Tabellenblatt "Tabelle5" deffinieren (zB. C5:C40) und in diesem das Datum auf TT.MM.JJJJ stellen, egal was vorher für ein Format stand (ob amerikanisch, ob Deutsch, JJJJ.MM.TT.....)
Wie formatiere ich einen Range in dieses datumsformat ?
...
06.11.2008 13:13:00
Thread-ID: 1022256
10 Beiträge
Klein.- in Grosschrift ändern
Macro

Hi,
kann ich per Makro in der Tabelle "DATEN" im Range B5:B35 alle Einträge von klein ind Grosschrift ändern.
Also, z.B. aus
test
Test
tEST
soll letztendlich immer "TEST" werden
Wie macht man den sowas ?
Danke mal
Marko
12.11.2008 12:18:23
Thread-ID: 1023771
8 Beiträge
Anzeige
Schleife: Zählen mit 2 Bedingungen
Sabrina

Hallo liebe Excel - Freunde,
Wollte erstmal sagen, dass ich das Forum ganz toll finde. Hat mir als Einsteiger schon den ein oder anderen Tipp gegeben.
Nun habe ich ein spezifisches Problem, bei dem ich einfach nicht weiterkomme. Ich hoffe ihr könnte mir dabei ein bisschen helfen.
Ic...
23.11.2008 20:21:00
Thread-ID: 1027155
6 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