Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen in Tabelle einfügen

Forumthread: Zeilen in Tabelle einfügen

Zeilen in Tabelle einfügen
26.01.2004 15:31:19
Haweka
Ich habe folgendes Problem:
Es gibt zwei Jahreszahlen, z.B. 2003 und 1975, die je nach Aufgabenstellung verschieden sein können. Diese stehen in Spalte A.
Nun möchte ich alle dazwischen liegende Jahre, d.h. 1976,1977 etc. automatisch zwischen die beiden vorgegebenen Jahreszahlen einfügen. Gleichzeitig soll in Spalte B eine Berechnung durchgeführt werden, die auf der in Spalte A eingefügten Jahreszahl ind der gleichen Zeile durchgeführt wird. Ich hoffe, ich habe mich verständlich ausgedrückt.
Haweka
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen in Tabelle einfügen
26.01.2004 16:07:39
Josef Ehrensberger
Hallo ?
Wie soll dasanze passieren - Makro?
Welche Berechnung soll in Spalte B durchgefürt werden?
Gruß Sepp
AW: Zeilen in Tabelle einfügen
26.01.2004 21:38:10
haweka
Es handelt sich um eine Berechnung, in dem ausgehend vom Ausgangsjahr (2003) der abgezinste Wert berechnet wird.Das hätte ich mit einer wenn-dann Abfrage gemacht.
Haweka
Anzeige
AW: Zeilen in Tabelle einfügen
26.01.2004 22:29:40
Josef Ehrensberger
Hi,
so ganz verstehe ich nicht was Du willst, aber
ein Makro als versuch.


Sub JahreEinfügen()
Dim start As String
Dim ende As String
Dim intC As Integer
   Do
   start = InputBox("Bitte geben Sie das Startjahr ein." & vbLf & _
      "Die Jahreszahl muss vierstellig sein!", "Start", CStr(Year(Date)))
      If start = "" Then Exit Sub
      If Not IsNumeric(start) Then start = 0
   Loop While Len(start) <> 4 Or CInt(start) < 1900 Or CInt(start) > 3999
   Do
   ende = InputBox("Bitte geben Sie das Endjahr ein." & vbLf & _
      "Die Jahreszahl muss vierstellig sein!", "Ende", CStr(Year(Date) - 10))
      If ende = "" Then Exit Sub
      If Not IsNumeric(ende) Then ende = 0
   Loop While Len(ende) <> 4 Or CInt(ende) < 1900 Or CInt(ende) > 3999 Or CInt(ende) >= start
start = CInt(start)
ende = CInt(ende)
   With Sheets(1) 'Tabelle anpassen
   .Range("A2:B1000").ClearContents
   'Bereich "A2:B1000" löschen
      For intC = 2 To (start - ende) + 2
      .Cells(intC, 1) = (start + 2) - intC
      .Cells(intC, 2).FormulaR1C1 = "=IF(RC[-1]>YEAR(TODAY())-10,""X"","""")"
      'Formel für Spalte "B" nur als Beispiel
      'Für Deine Formel am besten den Makrorekorder benutzen!
      Next
   End With
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gib bitte Bescheid, egal ob positiv oder negativ.
Gruß Sepp
Anzeige
AW: Zeilen in Tabelle einfügen
27.01.2004 09:26:28
Haweka
Hallo Sepp,
vielen Dank für die Hilfe,. Leider funktioniert das Ding bei mir nicht, wahrscheinlich bin ich zu blöd dazu.
UNter dem Untenstehenden Link findest du die test-Datei.
Vielleicht kannst sie noch mal anschauen
https://www.herber.de/bbs/user/3230.xls

Gruß
Haweka
Anzeige
AW: Zeilen in Tabelle einfügen
28.01.2004 10:24:03
Haweka
Hallo Sepp,
Dein Makro funktioniert hervorragend. Ich habe schon meine Formel eingepasst und auch das läuft. Jetzt habe ich nur noch eine bzw. zwei Fragen:
1)Wie kann ich die Eingabe so verändern, dass für den Datumsanfangs- und Endwert eine Zahl aus einem anderen Tabellenblatt automatisch übernommen wird.
2) Wie kann ich die Summe aus einer automatisch generierten Spalte erzeugen, die ja immer unterschiedlich viele Zeilen hat?
Danke
Hans
Anzeige
AW: Zeilen in Tabelle einfügen
28.01.2004 11:43:43
Josef Ehrensberger
Hallo!
Freud mich das es funktioniert!
Hier der Code, angepasst nach deinen wünschen.


Sub JahreEinfügen()
Dim start As String
Dim ende As String
Dim intC As Integer
Dim rngAdr As Range
'   Do
'   start = InputBox("Bitte geben Sie das Startjahr ein." & vbLf & _
'      "Die Jahreszahl muss vierstellig sein!", "Start", CStr(Year(Date) - 1))
'      If start = "" Then Exit Sub
'      If Not IsNumeric(start) Then start = 0
'   Loop While Len(start) <> 4 Or CInt(start) < 1900 Or CInt(start) > 3999
'   Do
'   ende = InputBox("Bitte geben Sie das Endjahr ein." & vbLf & _
'      "Die Jahreszahl muss vierstellig sein!", "Ende", CStr(Year(Date) - 10))
'      If ende = "" Then Exit Sub
'      If Not IsNumeric(ende) Then ende = 0
'   Loop While Len(ende) <> 4 Or CInt(ende) < 1900 Or CInt(ende) > 3999 Or CInt(ende) >= start
'start = CInt(start)
'ende = CInt(ende)
'##############################################################################
start = Sheets("TabelleMitStartwert").Range("A1") 'Tabelle ung Bereich anpassen
ende = Sheets("TabelleMitEndWert").Range("A1") 'Tabelle ung Bereich anpassen
'##############################################################################
   With Sheets(1) 'Tabelle anpassen
   .Range("A3:B1000").ClearContents
   'Bereich "A2:B1000" löschen
      For intC = 3 To (start - ende) + 3
      .Cells(intC, 1) = (start + 3) - intC
      .Cells(intC, 2).FormulaR1C1 = "=IF(RC[-1]>YEAR(TODAY())-10,""X"","""")"
      'Formel für Spalte "B" nur als Beispiel
      'Für Deine Formel am besten den Makrorekorder benutzen!
      Next
      '#######################################################################
      'Ich nehme an, das Die Formel für die Summe unter die Zellen mit
      'deinen Berechnungen soll, sonst Zeile bzw. Spalte anpassen
      Set rngAdr = Range(.Cells(3, 2), .Cells(intC - 1, 2))
      'Adresse des Bereichs ermitteln
      .Cells(intC, 2).FormulaLocal = "=SUMME(" & rngAdr.Address & ")"
      'oder
      .Cells(intC, 3).Value = WorksheetFunction.Sum(strAdr)
      'oder
      .Range("D5").Value = WorksheetFunction.Sum(strAdr)
      'jenachdem wo die Summe stehen sol
      '#######################################################################
   End With
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
;

Forumthreads zu verwandten Themen

Namen von Tabellenblätter in Fußzeile übertragen
Tabellenblätter

Hallo zusammen,
ich habe eine ziemlich große Exceldatei mit derzeit ca. 80 Tabellenblättern (Sheets). die Namen beginnen entweder mit "Titel 01" oder "Titel 02". Nun möchte ich gerne haben, dass die Fußzeile einen bestimmten Text druckt, z.B. "GEBÄUDE 100", wenn das Tabellenblatt mit "Titel...
15.10.2008 23:37:38
Thread-ID: 1016707
3 Beiträge
Anzeige
2 Tabellen verbinden ->zeilenweiser Mengenabgleich
Mike

Hallo erstmal,
als begeisterter Forumsleser habe ich schon viele Tage hier verbracht. Jetzt traue ich mich einmal hinein und hoffe auf Eure Hilfe.
Ich habe 2 laaange Tabellen. In Tabelle1 stehen (neben anderen Daten)
Teilenummer, Auftragsnummer, (Lieferwoche) und Stück und in Tabel...
16.10.2008 11:37:00
Thread-ID: 1016808
8 Beiträge
Leere Zeilen in Tabellenspalte zählen
A.Franz

Hallo...
ich habe fogendes Problem u.hoffe das mir jemand helfen kann.Ich Habe eine UserForm mit Listbox u.Textbox.Über diese schreibe ich Werte in die Tabelle (Spalte A).Ist es möglich,wenn ich die Userform aufrufe,das mir die Anzahl noch freier Zeilen in Spalte A z.B in einer TextBox oder...
03.12.2008 12:55:46
Thread-ID: 1029789
4 Beiträge
2 verschiedene Kopfzeilen in einer Tabelle
Horst

Hallo liebe Leute,
ich hab folgendes Problem, ich habe eine Tabelle Bei der ich den Druckbereich variabel gestalte. Zusätzlich möchte ich aber das ab einer bestimmten Seitenanzahl was anderes im Kopf steht. Dazu habe ich einen ansatz hier im archiv gefunden und den auch schon etwas angepas...
28.01.2009 10:51:00
Thread-ID: 1044486
5 Beiträge
Zeile in allen Tabellenblättern durchsuchen
ben

Hallo,
bei folgendem Problem stoße ich mit meinen Excel/VBA Kenntnissen an die Grenze.
Ich würde gern, wenn die Zelle C57 im Blatt Menü ein Wochentag ist, eine Suche in allen Tabellenblättern in der Zeile 9 nach dem Wert der in Zelle C58 (ist die Kalenderwoche) im Blatt Menü steht start...
14.03.2009 13:21:39
Thread-ID: 1060137
7 Beiträge
Zeile in allen Tabellenblättern durchsuchen
ben

Hallo,
bei folgendem Problem stoße ich mit meinen Excel/VBA Kenntnissen an die Grenze.
Ich würde gern, wenn die Zelle C57 im Blatt Menü ein Wochentag ist, eine Suche in allen Tabellenblättern in der Zeile 9 nach dem Wert der in Zelle C58 (ist die Kalenderwoche) im Blatt Menü steht start...
14.03.2009 13:26:44
Thread-ID: 1060139
2 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
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
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Anzeige
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
Formel in Zelle einfügen
Alexander

Hallo zusammen,
Sub test() Dim str As String str = "=WENN(Daten!$F$1='Tabelle1'!" & Cells(11, 5).Address & ";JAHR('Tabelle1'!" & Cells(18, 4) _ .Address & ")" End Sub wie kann ich die Formel in der Varialben str in eine Zelle einfügen? Oder kann ich die Formel auch direkt o...
13.10.2009 09:45:55
Thread-ID: 1109248
6 Beiträge
Aus Tabelle4 in Tab1 ZeilenPosition finden
Franz

Hallo Excelisten,
Was muss ich hier ändern um den Zeilenwert zu erfahren? Sub Suche_NEW() Dim Zeilenwert As Integer Zeilenwert= iRowValueItem("29437436", 1) MsgBox (Zeilenwert) End Sub
Function iRowValueItem_NEW(sWhat As String, iCol As Integer) As Integer
Dim rng As Range
If...
23.10.2009 21:47:13
Thread-ID: 1111734
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