Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1376to1380
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
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA - Zelle beschriftet einfügen mit if

Excel VBA - Zelle beschriftet einfügen mit if
15.08.2014 09:18:29
Gerriet
Hallo zusammen,
ich muss für das studentische Forum meiner Hochschule eine Liste programmieren, welche aus den Daten Namen, Matrikelnummer und Telefon besteht und deren Einträge zum Teil unvollständig sind. In diesem Zusammenhang soll das Makro im ersten Schritt raussuchen, ob in Spalte A "Name:..." steht und in der darauffolgenden Zeile der Spalte A "Matrikelnummer:..." und in der darauffolgenden Zeile "Telefon:..." und im zweiten Schritt dann falls ein Eintrag fehlt, die Matrikelnummer und/oder Telefon entsprechend der Struktur (Name, Matrikelnummer, Telefon)ergänzen.
Ich hoffe, Ihr könnt mir helfen. Ich studiere leider nicht Informatik und stehe daher am meisten bei der IF-Abfrage mit Zelle + 1 = Matrikelnummer und Zelle + 2 = Telefon sozusagen aufm Schlauch.

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA - Zelle beschriftet einfügen mit if
15.08.2014 11:10:03
Klaus
Hallo Gerriet,
Im Prinzip so: 
Dim r As Range
For Each r In Range("A1:A1000")
If r.Value  "" Then
If Range("B" & r.Row) = "" Then
'Ergänze Telefonnummer
End If
If Range("C" & r.Row) = "" Then
'Ergänze Matrikelnummer
End If
Next r
Grüße,
Klaus M.vdT.

AW: Excel VBA - Zelle beschriftet einfügen mit if
15.08.2014 12:03:10
Gerriet
Danke für die schnelle Antwort, aber alle Angaben befinden sich in der selben Spalte (A)bzw. die ganzen Einträge stehen in der Ursprungstabelle untereinander:
Optimalfall bzw. Soll-Zustand:
A1 = Name
A2 = Matrikelnummer
A3 = Telefon
Regelfall:
A4 = Name
A5 = Matrikelnummer
[Telefon fehlt]
A6 = Name
[Matrikelnummer fehlt]
A7 = Telefon

Anzeige
AW: Excel VBA - Zelle beschriftet einfügen mit if
15.08.2014 12:25:37
Andreas
Hallo Gerriet,
sind Telefonnummer und Matrikelnummer als Zahl formatiert?
Gruß Andreas

AW: Excel VBA - Zelle beschriftet einfügen mit if
15.08.2014 12:29:54
Andreas
... und kannst du mal beispielhaft Telefonnummer und Matrikelnummer aus deiner Excel-Liste zitieren? Man muss die beiden ja irgendwie auseinanderhalten können :-)
LG Andreas

AW: Excel VBA - Zelle beschriftet einfügen mit if
15.08.2014 13:19:00
Gerriet
Hallo Andreas,
vielen Dank für deine Fragen. Also jede Zelle, die eine Telefonnummer enthält, beginnt erstmal mit Tel:
Bei den anderen Angaben Name und Matrikelnummer verhältlich sich das genauso.
Ein Beispiel ist (Zeichenkette exakt eingehalten):
(Zelle A1) Name: Max Mustermann
(Zelle A2) Matrikelnummer: 1234567
(Zelle A3) Telefon: (04921) 12345
Ist es möglich nur den "Zellenanfang", wie z.B. "Name: ", in dem Kombination mit den Anfängen der folgenden Zellen als Hilfe zu nutzen?

Anzeige
AW: Excel VBA - Zelle beschriftet einfügen mit if
15.08.2014 13:37:12
Klaus
Hi Gerriet,
wenn ich dich richtig verstanden habe:
Sub Ergaenze()
Const MySpalte As Long = 1 'in Spalte A
Const AbZeile As Long = 1  'in Zeile 1 gehts los
Dim lRow As Long
Dim i As Long
With ActiveSheet
lRow = .Cells(.Rows.Count, MySpalte).End(xlUp).Row
For i = lRow To AbZeile Step -1
If .Cells(i, MySpalte).Value Like "Name:*" Then
If Not .Cells(i + 1, MySpalte).Value Like "Matrikelnummer:*" Then
.Cells(i + 1, MySpalte).Insert Shift:=xlDown
.Cells(i + 1, MySpalte).Value = "Matrikelnummer: "
End If
If Not .Cells(i + 2, MySpalte).Value Like "Telefon:*" Then
.Cells(i + 2, MySpalte).Insert Shift:=xlDown
.Cells(i + 2, MySpalte).Value = "Telefon: "
End If
End If
Next i
End With
End Sub
Der Sinn dieses Tabellenaufbaus erschließt sich mir allerdings nicht.
Grüße,
Klaus M.vdT.

Anzeige
AW: Excel VBA - Zelle beschriftet einfügen mit if
15.08.2014 14:02:52
Andreas
Hallo Gerriet,
habe eine Lösung.
Kann die Datei nicht uploaden.
Schreib mich einfach auf atissen93@gmail.com an.
In der ersten Spalte fügst du deine Daten ein, Knopf drücken und in der 2. Tabelle findest du dann deine Tabelle.
lg Andreas

AW: Excel VBA - Zelle beschriftet einfügen mit if
15.08.2014 14:13:15
Gerriet
Hallo Klaus,
vielen, vielen Dank! Ich finde den Aufbau auch ziemlisch schwachsinnig, aber nachdem der Code durchgelaufen ist, kann das nun richtig formatiert werden bzw. können die ganzen Anfänge entfernt werden.

Danke für die Rückmeldung! owT.
15.08.2014 14:14:47
Klaus
.

AW: Excel VBA - Zelle beschriftet einfügen mit if
15.08.2014 14:17:25
Andreas
Jetzt geht's.
https://www.herber.de/bbs/user/92133.xlsm
Ist für ca. 2000 Zeilen programmiert. Musst ansonsten die Formeln runterziehen.
Die grauen Felder nicht ändern.
LG Andreas

Anzeige
AW: Excel VBA - Zelle beschriftet einfügen mit if
15.08.2014 15:39:39
Gerriet
Hallo Andreas,
die Lösung ist einfach Spitze! Perfekt!!! Besten Dank!
Ich danke Euch allen für Eure Hilfe und wünsche Euch ein schönes Wochenende

312 Forumthreads zu ähnlichen Themen

Exceltabelle in Word
S.H.

Hallo,
evtl. bin ich auch im falschen Forum, aber trotzdem meine Frage:
Ich habe ein Excel Arbeitsblatt unter word eingefügt und möchte dort weitere Zeilen einfügen. Das funktioniert auch soweit, am Ende der Word Seite ist allerdings Schluss. Ich schaffe es nicht, das die Tabelle einen...
20.10.2008 20:22:26
Thread-ID: 1017796
3 Beiträge
Anzeige
Excel Tabelle über 2 Seiten in Word
Ralf

Hallo,
ich möchte eine Excel Tabelle in Word einfügen. Das Problem ist, dass die Tabelle sehr lang ist und über 2 Seiten in Word gehen würde. Sie soll auch automatisch aktualisiert werden, wenn die Originaltabelle in Excel verändert wird.
Gibt es da eine Möglichkeit?
Vielen Dank!
16.04.2009 22:29:58
Thread-ID: 1069191
3 Beiträge
Makro Zeile einfügen und Summe automatisch anpasse
Zoran

Hallo zusammen.
Kann mir jemand mit einem Makro weiterhelfen. Folgendes Problem/Idee habe ich:
Ich würde gern ein Makro haben, dass automatisch eine Zeile einfügt und die Summen (inkl. neuer Zeile) aktualisiert.
Hintergrund ist, dass wir einige User im Unternehmen haben, die nicht...
22.06.2009 08:45:34
Thread-ID: 1083366
2 Beiträge
Anzeige
Zwei Excel-Tabellen in WinWord verknüpfen
Andreas

Hallo zusammen,
ich habe eine Word-Datei, in der sich an zwei verschiedenen Stellen zwei eingefügte Excel-Dateien befinden. Diese wurde vor langer Zeit mal aus Excel kopiert. Das Original in Excel existiert nicht mehr.
Jetzt möchte ich das Ergebnis einer Berechnung aus der ersten Tabell...
04.08.2009 13:53:46
Thread-ID: 1093412
2 Beiträge
Excell Tabelle in Word und Format behalten
Christian

Hallo.
Bei importieren einer Excell Tabelle in Word wird das Format der Tabelle immer "verhauen" = in die länge gezogen. Das sieht bescheiden aus. Gibt es eine Möglichkeit die Tabelle so zu importieren damit das Seitenverhältnis bleibt. Ich arbeite mit Word und Excell 2007.
Danke im Vor...
05.08.2009 14:48:21
Thread-ID: 1093759
2 Beiträge
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeile für Summe einfügen m. VBA
Lorenz

Hallo VBA-Profis!
Leider wurde ich trotz Recherche nicht mehr fündig. Dieses "mein" Problem wurde in diesem Forum schon behandelt (finde es aber nicht mehr)!
Folgende Aufgabe (Bitte): In Spalte "A" stehen Belegnummern (od ähnliches), es soll nach Ende einer Produktgruppe eine Leezeile e...
07.08.2009 20:12:41
Thread-ID: 1094336
3 Beiträge
pro tabelleneintrag automatisch eine neue Zeile
papa

Hallo liebe Excelianer,
ich möchte über ein Userform diverse Informationen abfragen und diese dann in einer Tabelle ablegen.
Es soll eine Datenbank entstehen, sprich bei jedem neuen Userformeintrag soll in der Tabelle eine neue Zeile verwendet werden.
Bisher hab ich dieses Vorhaben...
06.10.2009 00:10:16
Thread-ID: 1107402
3 Beiträge
Anzeige

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
2
7
2
1
3
1
1
1
2
2
2
2
3
10
5
1
2
3
4
2
3
5
2
1
2