Thema Datum  Von Nutzer Rating
Antwort
08.08.2008 15:31:28 Fetzer
NotSolved
10.08.2008 14:29:48 Holger
NotSolved
Rot Aw:Aw:Korrektur: letzte leere Zellen suchen
10.08.2008 14:31:52 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger
Datum:
10.08.2008 14:31:52
Views:
807
Rating: Antwort:
  Ja
Thema:
Aw:Aw:Korrektur: letzte leere Zellen suchen
Korrektur: Die erste Zeile muss natürlich
dim gef, i
lauten!


Holger schrieb am 10.08.2008 14:29:48:

Hallo Fetzer,
quick and dirty:

Sub Drei_Zellen_kopieren()
deim gef, i
gef = False
For i = 1 To 50
If Cells(i, 1) = "" Then
If Cells(i, 2) = "" And Cells(i, 3) = "" Then gef = True: Exit For
End If
Next i
If gef = True Then
Cells(i, 1) = Cells(9, 24)
Cells(i, 2) = Cells(9, 25)
Cells(i, 3) = Cells(9, 26)
Else
MsgBox "Keine freien Zellen verfügbar!"
End If
End Sub

Gruß
Holger


Fetzer schrieb am 08.08.2008 15:31:28:

Hallo,

da ich erst seit kurzem mit VBA in Excel arbeite, bin ich da noch nicht wirklich ganz fit.

Jetzt habe ich folgendes Problem :

Ich habe eine Kalkulation erstellt, in der ich Gewicht für Stahlträger ausrechne.
Diese Kalkulation ist in einem Tabellenblatt integriert und gibt mir in Zelle "X9" ein Ergebnis, in Zelle "Y9" ein Ergebnis und in Zelle "Z9" ein Ergebnis wieder. Diese Ergebnisse benötige ich in einer Liste, die sich im Bereich "A12 - C50" befindet. Den Wert aus Zelle"X9" benötige in der ersten freien Zeile in Spalte A, den Wert aus Zelle "Y9" benötige ich in der ersten freien Zelle in Spalte B und den Wert aus der Zelle "Z9" benötige ich in der ersten Zelle in Spalte C. Was ich dazu noch sagen muss ist, das in den Zeilen 51 und tiefer Werte stehen.

Wer kann mir helfen ???

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.08.2008 15:31:28 Fetzer
NotSolved
10.08.2008 14:29:48 Holger
NotSolved
Rot Aw:Aw:Korrektur: letzte leere Zellen suchen
10.08.2008 14:31:52 Holger
NotSolved