Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1888to1892
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
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ElseIf funktioniert nicht richtig

ElseIf funktioniert nicht richtig
16.07.2022 15:27:45
Henry
Hallo liebes Forum,.
ich benötige mal wieder eure Hilfe.
Ich habe folgenden Code geschrieben, der Daten aus dem Tabellenblatt "Buchungen" auf andere Tabellenblätter ("Kostenstellenbuchung", "PSP-Buchungen") überträgt.
Ohne die ElseIf Anweisung werden die Daten korrekt in das Sheet "Kostenstellenbuchung" geschrieben.
Wenn ich allerdings die ElseIf Anweisung hinzufüge, werden die PSP-Daten zwar korrekt in das Blatt "PSP-Buchungen" geschrieben, allerdings werden dann nur noch vereinzelt Zeilen in das Sheet "Kostenstellenbuchungen" geschrieben.
Könnt ihr mir hier weiterhelfen?
Code:

Sub Datenübertragung()
Dim lngZeile As Long
Dim lngZeileMax As Long
Dim Zähler As Long
'Worksheets("Buchungen").Activate
With Worksheets("Buchungen")
Zähler = 5
lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
For lngZeile = 3 To lngZeileMax
If .Cells(lngZeile, 2).Value = "K" Then
Worksheets("Kostenstellenbuchung").Cells(Zähler, 1).Value = Cells(lngZeile, 1).Value
Worksheets("Kostenstellenbuchung").Cells(Zähler, 4).Value = Cells(lngZeile, 3).Value
Worksheets("Kostenstellenbuchung").Cells(Zähler, 5).Value = Format(Cells(lngZeile, 4).Value, "mm")
Worksheets("Kostenstellenbuchung").Cells(Zähler, 6).Value = Format(Cells(lngZeile, 4).Value, "yyyy")
Worksheets("Kostenstellenbuchung").Cells(Zähler, 7).Value = Cells(lngZeile, 5).Value
Worksheets("Kostenstellenbuchung").Cells(Zähler, 2).Value = Application.WorksheetFunction.VLookup(Worksheets("Kostenstellenbuchung").Cells(Zähler, 1), Worksheets("Kostenstellenstammdaten").Range("A:C"), 2, False)
Worksheets("Kostenstellenbuchung").Cells(Zähler, 3).Value = Application.WorksheetFunction.VLookup(Worksheets("Kostenstellenbuchung").Cells(Zähler, 1), Worksheets("Kostenstellenstammdaten").Range("A:C"), 3, False)
ElseIf .Cells(lngZeile, 2).Value = "P" Then
Worksheets("PSP-Buchungen").Cells(Zähler, 1).Value = Cells(lngZeile, 1).Value
Worksheets("PSP-Buchungen").Cells(Zähler, 4).Value = Cells(lngZeile, 3).Value
Worksheets("PSP-Buchungen").Cells(Zähler, 5).Value = Format(Cells(lngZeile, 4).Value, "mm")
Worksheets("PSP-Buchungen").Cells(Zähler, 6).Value = Format(Cells(lngZeile, 4).Value, "yyyy")
Worksheets("PSP-Buchungen").Cells(Zähler, 7).Value = Cells(lngZeile, 5).Value
Worksheets("PSP-Buchungen").Cells(Zähler, 2).Value = Application.WorksheetFunction.VLookup(Worksheets("PSP-Buchungen").Cells(Zähler, 1), Worksheets("PSP-Elemente Stammdaten").Range("A:C"), 2, False)
Worksheets("PSP-Buchungen").Cells(Zähler, 3).Value = Application.WorksheetFunction.VLookup(Worksheets("PSP-Buchungen").Cells(Zähler, 1), Worksheets("PSP-Elemente Stammdaten").Range("A:C"), 3, False)
Zähler = Zähler + 1
End If
Next lngZeile
End With
End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ElseIf funktioniert nicht richtig
16.07.2022 15:56:08
ralf_b
die zeile sollte auch in den if zweig.

Zähler = Zähler + 1

AW: ElseIf funktioniert nicht richtig
16.07.2022 16:07:28
Henry
Das habe ich auch schon probiert, dann werden zwar die Daten vollständig übertragen, allerdings nicht mehr direkt untereinander.
AW: ElseIf funktioniert nicht richtig
16.07.2022 16:09:14
ralf_b
oh ja du hast recht, du brauchst für jedes Blatt einen eigenen Zähler.
AW: ElseIf funktioniert nicht richtig
16.07.2022 16:12:49
Henry
Damit klappt es. Vielen Dank.
Kann man das noch irgendwie einfacher lösen?
AW: ElseIf funktioniert nicht richtig
16.07.2022 17:39:12
ralf_b
mit ner parametrisierten Funktion. aber in der Funktion werden die Werte aus der aktiven Tabelle genommen. Sonst müßte ich das Blatt Buchungen auch noch mit übergeben oder es dort fix vorraussetzen. der Code ist ungetestet.

Sub Datenübertragung()
Dim lngZeile As Long
Dim shName As String
With Worksheets("Buchungen")
For lngZeile = 3 To .Cells(.Rows.Count, 1).End(xlUp).Row
Select Case .Cells(lngZeile, 2).Value
Case "K": fn_wertesetzen "Kostenstellenbuchung", lngZeile, "Kostenstellenstammdaten"
Case "P": fn_wertesetzen "PSP-Buchungen", lngZeile, "PSP-Elemente Stammdaten"
End Select
Next
End With
End Sub
Function fn_wertesetzen(sName As String, lngZeile As Long, sName2 As String)
Dim Zähler As Long
With Worksheets(sName)
Zähler = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(Zähler, 1).Value = Cells(lngZeile, 1).Value
.Cells(Zähler, 4).Value = Cells(lngZeile, 3).Value
.Cells(Zähler, 5).Value = Format(Cells(lngZeile, 4).Value, "mm")
.Cells(Zähler, 6).Value = Format(Cells(lngZeile, 4).Value, "yyyy")
.Cells(Zähler, 7).Value = Cells(lngZeile, 5).Value
.Cells(Zähler, 2).Value = Application.WorksheetFunction.VLookup(Worksheets(sName).Cells(Zähler, 1), Worksheets(sName2).Range("A:C"), 2, False)
.Cells(Zähler, 3).Value = Application.WorksheetFunction.VLookup(Worksheets(sName).Cells(Zähler, 1), Worksheets(sName2).Range("A:C"), 3, False)
End With
End Function

Anzeige
AW: ElseIf funktioniert nicht richtig
17.07.2022 17:08:48
Henry
Hallo,
entschuldige bitte, dass ich mich jetzt erst melde.
Der Code funktioniert einwandfrei. Vielen Dank.
Leider kenne ich mich mit Funktionen noch nicht gut aus.
Ich verstehe nicht woher die Funktion die spezifischen Tabellenblätter erkennt.
Außerdem verstehe ich nicht wofür die Variable "Dim shName As String" deklariert wird.
Wärst du so nett und würdest mir das erklären?
Ich würde gerne dazulernen.
Viele Grüße
Henry
AW: ElseIf funktioniert nicht richtig
17.07.2022 18:11:08
ralf_b
Dim shName As String ist ein Rest von bevor es die Funktion fn_wertesetzen gab. VBA Code entwickelt sich beim Programmieren. Da bleibt auch mal was übrig. In diesem Fall unschädlich für die Funktionalität.
was eine parametrisierte Funktion bzw. eine Funktion mit Parameterübergabe ist und wie diese arbeitet, kannst du locker (selbst) recherchieren. Ich gebe ungern Nachhilfe in Basiswissen wenn das alles schon didaktisch aufbereitet im Netz auf Interessenten wartet.
Anzeige

307 Forumthreads zu ähnlichen Themen

Tabelle nach Anzahl sortieren
Pascal

Hallo,
wie kann ich eine Tablle nach der Anzahl der Wörter in einer Spalte sortieren?
Die Tabelle sieht etwa so aus:
Spalte1 | Spalte2 | Spalte 3
1 | der die | ...
2 | der | ...
3 | der die das | ...
und aussehen soll...
25.09.2008 11:50:39
Thread-ID: 1012284
6 Beiträge
Anzeige
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Tabelle nach Namen durchsuchen -> Wert ausgeben
Aschi

Hallo,
ist es möglich mit einer Excel Funktion eine Tabelle nach gewissen Informationen zu durchlaufen und in einer anderen Zelle dann einen entsprechenden Wert auszugeben?
Also z.B. ich habe eine Liste und in der Zelle E steht „1. FC Köln“, eine Zeile darunter steht in E „FC Bayern Mün...
02.12.2008 16:17:12
Thread-ID: 1029551
8 Beiträge
Anzeige
Tabelle sortiert nicht im Netzwerk ?
A.Franz

Hallo...,
ich hoffe wirklich bei meinem nachfolgendem Problem kann mir jemand helfen,da ich mir das ganze nicht erklären kann.Ich habe eine ListBox mit 5-Spalten die über Row-Source A1:E gefüllt wird.Weiterhin habe ich eine Textbox über die ich einen Suchbegriff für die Auftragsnummer einge...
12.12.2008 11:25:00
Thread-ID: 1032340
2 Beiträge
Autofilter über Makro funktioniert nicht mehr
Ramon

Hallo Excel-Freunde,
ich habe ein ganz komisches Problem:
Wenn ich im Makro die Autofilter-Funktion einbinde, wird beim ausführen des entsprechenden
Makros in dem Modul der Begriff "Autofilter" gelb markiert, mit der Fehlermeldung:
"Fehler beim kompilieren:
Methode oder Date...
23.01.2009 15:01:21
Thread-ID: 1043020
3 Beiträge
Tabellen sortiere und nach wert in zelle
Walli

Guten Tag,
ich habe folgendes Makro für das Sortieren der Tabellenblätter
gefunden, funktioniert auch.:
Sub Tabellenblätter_sortieren() Dim Cnt As Integer Dim N As Integer Dim M As Integer On Error GoTo EndOfMacro Application.ScreenUpdating = False Cnt = ActiveWorkbook.Worksheets....
21.02.2009 11:24:43
Thread-ID: 1052581
7 Beiträge
Auto open funktioniert nicht richtig
Bodo

Guten Tag.
Ich versuche diesen Code hier zum Laufen zu bringen.
Sub Auto_open() ' Auto_öffnen Makro ' Blatt "Grundwerte" ausblenden. Unnötiges ausblenden. Blatt "Hinweise" aktivieren. In Vollbild- _ Modus schalten. Sheets("Grundwerte").Visible = False Sheets("Hinweise").Select ActiveW...
25.02.2009 14:31:35
Thread-ID: 1053941
6 Beiträge
Tabellen in Datei sortieren aber nach ...
walli

Guten Morgen,
ich habe eine große Datei mit vielen Tabellen.
Die Tabellen haben Namen z.B. Busch und Busch M also der gleiche Name
aber nach dem Namen Leerzeichen und ein großes M.
Ich möchte die Tabellen automatisch nach Namen sortieren + direkt
daneben jeweils die Tabe...
18.03.2009 09:17:28
Thread-ID: 1061282
3 Beiträge

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