Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

fehlende Daten in MsgBox anzeigen?

Forumthread: fehlende Daten in MsgBox anzeigen?

fehlende Daten in MsgBox anzeigen?
09.09.2008 17:55:00
Selma
Hallo Leute,
wenn in Spalte B und C der Inhalt steht, aber in Spalte A nicht, dann soll in einem MsgBox ausgegeben werden, in welche Zeile die Pers.Nr. (Spalte A) fehlt, sowie die Zelleninahlte der Spalten B, C und F.
Die letzte Zelle mit Daten kann in Spalte B ermittelt werden.
ABCDEF
1
2
3
4
5
6
7

MsgBox (Trennung mit TAB's) sieht im Beispiel so aus:
Zeile Vorname Nachname Ort
-------------------------------------------
2 Tobias Fiege München
4 Thomas Schneider Hamburg
5 Petra Steinmeyer Düsseldorf
-------------------------------------------
Es fehlen 3 Daten!
Wie mache ich das?
Vielen Dank im Voraus !
Liebe Grüße,
Selma
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: fehlende Daten in MsgBox anzeigen?
09.09.2008 18:51:35
Tino
Hallo,
teste mal diesen Code.
Modul Modul1 
Option Explicit 
 
Sub Suche_leere_In_A() 
Dim lngLetzte As Long, A As Long 
Dim Adresse As String 
Dim objFiler As Range 
Application.ScreenUpdating = False 
lngLetzte = Cells(Rows.Count, 2).End(xlUp).Row 
Set objFiler = Range(Cells(1, Columns.Count), Cells(2, Columns.Count)) 
 
objFiler(1) = Range("A1") 
objFiler(2) = "'=" 
 
    Range("A1:F" & lngLetzte).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        objFiler, Unique:=False 
 
objFiler.Clear 
 Adresse = Range("A2:A" & lngLetzte).SpecialCells(xlCellTypeVisible).Address(False, False) 
 
ActiveSheet.ShowAllData 
Application.ScreenUpdating = True 
 
Adresse = "Leere gefunden in:" & Chr(13) & Replace(Adresse, ",", Chr(13)) 
 
MsgBox Adresse 
 
End Sub


Gruß Tino

Anzeige
AW: fehlende Daten in MsgBox anzeigen?
09.09.2008 22:05:00
Selma
Hallo Tino,
ich habe das Makro getestet.
a) Wenn die Daten nicht fehlen kommt es zum "Laufzeitfehler 1004" und das Makro bleibt hier "Adresse = Range("A2:A" & lngLetzte).SpecialCells(xlCellTypeVisible).Address(False, False)" stehen.
b) Lässt sich die MsgBox-Ausgabe wie im Beispiel (Zeile + Vorname + Nachname + Ort) darstellen?
Danke !
Viele Grüße,
Selma
Anzeige
AW: fehlende Daten in MsgBox anzeigen?
09.09.2008 22:41:00
Tino
Hallo,
so müsste es gehen.
Modul Modul1 
Option Explicit 
 
  
Sub Suche_leere_In_A() 
Dim lngLetzte As Long, A As Long 
Dim Adresse As String, tempAd() As String 
Dim objFiler As Range 
Dim Bereich As Range 
Application.ScreenUpdating = False 
lngLetzte = Cells(Rows.Count, 2).End(xlUp).Row 
Set objFiler = Range(Cells(1, Columns.Count), Cells(2, Columns.Count)) 
  
objFiler(1) = Range("A1") 
objFiler(2) = "'=" 
  
  
    Range("A1:F" & lngLetzte).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        objFiler, Unique:=False 
  
 
On Error Resume Next 
Adresse = Range("A2:A" & lngLetzte).SpecialCells(xlCellTypeVisible).Address(False, False) 
On Error GoTo 0 
     
    ActiveSheet.ShowAllData 
        If Adresse = "" Then 
          GoTo Ende: 
        End If 
 
tempAd = Split(Adresse, ",") 
Adresse = "" 
 
For A = 0 To Ubound(tempAd) 
 For Each Bereich In Range(tempAd(A)) 
    Adresse = Adresse & Bereich.Address(False, False) & vbTab & _
    Bereich.Offset(0, 1) & vbTab & _
    Bereich.Offset(0, 2) & vbTab & _
    Bereich.Offset(0, 5) & Chr(13) 
 Next Bereich 
Next A 
 
Application.ScreenUpdating = True 
  
Adresse = "Leere gefunden in:" & Chr(13) & Adresse 
objFiler.Clear 
MsgBox Adresse 
 
Exit Sub 
 
Ende: 
objFiler.Clear 
Application.ScreenUpdating = True 
End Sub


Gruß Tino

Anzeige
AW: fehlende Daten in MsgBox anzeigen?
10.09.2008 09:46:00
Selma
Hallo Tino,
vielen Dank. Die Anzeige in MsgBox sieht etwas verrutscht aus. Lässt sich dies auch ändern?
Viele Grüße,
Selma
AW: fehlende Daten in MsgBox anzeigen?
10.09.2008 16:03:06
Tino
Hallo,
ist mit einer MsgBox nur schwer umzusetzen.
Hier eine alternative mit einer Userform.
https://www.herber.de/bbs/user/55299.xls
Auf Schönheit habe ich in der Form jetzt verzichtet, kannst Du nach Deinen wünschen anpassen.
Gruß Tino
Anzeige
AW: fehlende Daten in MsgBox anzeigen?
10.09.2008 16:46:00
Selma
Vielen Dank Tino !
LG,
Selma
;

Forumthreads zu verwandten Themen

fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Menü in Excel von VB6.0 aus erzeugen??
VB6.0

Hallo zusammen,
ich hoffe ihr könnt mir bei meinem Anliegen helfen. Ich möchte den VBA-Code in eine dll transportieren (VB 6.0) und scheitere schon an dem Menüaufbau in Excel.
In der dll steht in einer Klasse:
Sub Test_Excel() Set xl = GetObject(, "Visio.Application") Set objMenu...
07.08.2008 20:23:28
Thread-ID: 1000091
13 Beiträge
Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Anzeige
Leeren von Textfeldern
Textfeldern

Hallo
brauch mal wieder Hilfe!
in meiner Userform sind einige Textboxen und comboboxen mit Werten zur weiteren Berechnung gefüllt.
jetzt die Frage: Gibt es einen Möglichkeit mit einen CommantButton alle Inhalte der textboxen und Comboboxen mit einem Click zuleeren um sie neu zubefül...
07.08.2008 22:26:00
Thread-ID: 1000114
11 Beiträge
AW: Excel Makro Starten
Matty

Hallo nochmal....
Was ist an meiner Variante falsch?
Ich habe die Dateinamen als String definiert und in der Schleife den String aufgerufen. Was ist an dem Aufruf Application.Run falsch bzw was muss ich anders formulieren, wenn ich möchte dass die dateien entsprechend der Schleife durch...
08.08.2008 07:42:54
Thread-ID: 1000149
2 Beiträge
Lagerverwaltung mit Excel
Ralf

Hallo,
ich habe eine Lagerverwaltungsliste, in Spalte A stehen die Produkte, in Spalte B die Lagerzugänge und in Spalte C die Lagerabgänge.
In jeder Zeile befindet sich immer nur ein Buchungsvorgang, also entweder nur Zugang oder nur Abgang vom Lager.
Ich möchte in Spalte F, die akt...
08.08.2008 09:51:52
Thread-ID: 1000187
4 Beiträge
Farben aus Excel 2007 in Excel 2000 übernehmen
Jochen

Das Farbkonzept von Excel 2007 habe ich trotz langer Web-Recherche nicht verstanden. Was muss ich in Excel 2007 tun, damit ich die gleichen Farben angezeigt bekomme, wenn ich eine in Excel 2007 erstellte Datei in Excel 2000 öffne?
Gruß,
Jogi
08.08.2008 15:58:40
Thread-ID: 1000338
2 Beiträge
Anzeige
Sudoku Kontexmenü-Rechts [evtl. Hajo]
Matthias

Hallo
(Level bitte nicht ganz so ernst nehmen)
Folgendes:
In Diese Arbeitsmappe
Option Explicit 'nach einer Idee von Hajo Ziplies 'https://www.herber.de/forum/ _ archiv/972to976/t972675.htm Private Sub Workbook_BeforeClose(Cancel As Boolean) KontextmenueZuruecksetzen End Sub P...
08.08.2008 21:58:35
Thread-ID: 1000418
10 Beiträge
datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
MsgBox - Text aus Tabelle ziehen?
Peter

Hallo!
Mein Problem ist wieder mal so klein, dass es hier im Forum keine Beiträge dazu gibt. Hab schon alles auf den Kopf gestellt aber kann nichts finden. Dabei kann's eigentlich nicht schwer sein:
Ich möchte, dass in einem PopUp der Wert einer Zelle wiedergegeben wird.
Beispiel:...
09.08.2008 13:17:00
Thread-ID: 1000480
6 Beiträge
Zeichenkette per for-next-schleife erstellen
lauer

Hallo,
ich möchte mir eine Zeichenkette erstellen lassen.
Ich habe in einer Zelle (B11) den Anfang (1) angegeben und in der anderen (C11) steht das Ende (49).
Nun möchte ich, dass er mir in der E11 die Zeichenkette reinschreibt.
Also ich möchte dann in E11 stehen haben: 1,2,3,4,...
09.08.2008 19:06:00
Thread-ID: 1000538
5 Beiträge
Anzeige
Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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